Trending Topics: Latest from our forums (September 2020)

Imports System 
Imports System.Collections.Generic 
Imports Docusign.eSign.Api 
Imports Docusign.eSign.Client 
Imports Docusign.eSign.Model 
Imports Microsoft.AspNetCore.Mvc 

Private Function DoWork(BVal signerEmail As String, ByVal signerName As String, ByVal ccEmail As String, ByVal ccName As String, ByVal accessToken As String, ByVal basePath As String, ByVal accountId As String, ByVal templateId As String) As String 
  Dim config = New Configuration(New ApiClient(basePath)) 
  config.AddDefaultHeader("Authorization", "Bearer " & accessToken) 
  Dim envelopesApi As EnvelopesApi = New EnvelopesApi(config) 
  Dim envelope As EnvelopeDefinition = MakeEnvelope(signerEmail, signerName, ccEmail, ccName, templateId) 
  Dim result As EnvelopeSummary = envelopesApi.CreateEnvelope(accountId, envelope) 
  Return result.EnvelopeId 
End Function 

Private Function MakeEnvelope(ByVal signerEmail As String, ByVal signerName As String) As EnvelopeDefinition 
  Dim buffer As Byte() = System.IO.File.ReadAllBytes(Config.docPdf) 
  Dim envelopeDefinition As EnvelopeDefinition = New EnvelopeDefinition() 
  envelopeDefinition.EmailSubject = "Please sign this document" 
  Dim doc1 As Document = New Document() 
  Dim doc1b64 As String = Convert.ToBase64String(buffer) 
  doc1.DocumentBase64 = doc1b64 
  doc1.Name = "Lorem Ipsum" 
  doc1.FileExtension = "pdf" 
  doc1.DocumentId = "3" 
  envelopeDefinition.Documents = New List(Of Document) From { doc1 } 
  Dim signer1 As Signer = ew Signer With { .Email = signerEmail, .Name = signerName, .ClientUserId = signerClientId, .RecipientId = "1" } 
  Dim signHere1 As SignHee = New SignHere With { .AnchorString = "/sn1/", .AnchorUnits = "pixels", .AnchorXOffset = "10", .AnchorYOffset = "20" } 
  Dim signer1Tabs As Tabs = New Tabs With { .SignHereTabs = New List(Of SignHere) From { signHere1 } }
  signer1.Tabs = signer1Tabs 
  Dim recipients As Recipients = New Recipients With { .Signers = New List(Of Signer) From { signer1 } } 
  envelopeDefinition.Recipients = recipients 
  envelopeDefinition.Status = "sent" 
  Return envelopeDefinition 
End Function