Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) DocuSign Add One Document to a Draft EnvelopeSee more DocuSign ExamplesDemonstrates how to add one document to a DocuSign draft envelope. For more information, see https://developers.docusign.com/docs/esign-rest-api/reference/envelopes/envelopedocuments/updatelist/
' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. Dim http As Chilkat.Http Set http = Chilkat.NewHttp ' Load a previously obtained OAuth2 access token. Dim jsonToken As Chilkat.JsonObject Set jsonToken = Chilkat.NewJsonObject success = jsonToken.LoadFile("qa_data/tokens/docusign.json") If (success = False) Then Debug.Print jsonToken.LastErrorText Exit Sub End If ' Adds the "Authorization: Bearer eyJ0eXAi.....UE8Kl_V8KroQ" header. http.AuthToken = jsonToken.StringOf("access_token") ' Send the following request. ' Make sure to use your own account ID (obtained from Get Docusign User Account Information) ' PUT https://demo.docusign.net/restapi/v2.1/accounts/<account ID>/envelopes/<envelope ID>/documents HTTP/1.1 ' Expect: 100-continue ' Accept: application/json ' Cache-Control: no-cache ' Authorization: Bearer eyJ0eX... ' Content-Length: ... ' Content-Type: application/json ' ' { ' "documents": [ ' { ' "documentId": "1", ' "name": "project_xyz.pdf", ' "pages": "1", ' "documentBase64": "<insert base64 content here>" ' } ' ] ' } Dim bd1 As Chilkat.BinData Set bd1 = Chilkat.NewBinData success = bd1.LoadFile("qa_data/pdf/project_xyz.pdf") Dim json As Chilkat.JsonObject Set json = Chilkat.NewJsonObject Dim success As Boolean success = json.UpdateString("documents[0].documentId","1") success = json.UpdateString("documents[0].name","project_xyz.pdf") success = json.UpdateString("documents[0].pages","1") success = json.UpdateString("documents[0].documentBase64",bd1.GetEncoded("base64")) Dim sbJson As Chilkat.StringBuilder Set sbJson = Chilkat.NewStringBuilder json.EmitCompact = False success = json.EmitSb(sbJson) http.SetRequestHeader "Expect","100-continue" http.SetRequestHeader "Cache-Control","no-cache" http.SetRequestHeader "Accept","application/json" ' Use your own account ID here. success = http.SetUrlVar("accountId","7f3f65ed-5e87-418d-94c1-92499ddc8252") ' Use the envelope ID returned by DocuSign when creating the draft envelope). success = http.SetUrlVar("envelopeId","0b437b95-cc50-475f-8dec-65bae9f27d09") url = "https://demo.docusign.net/restapi/v2.1/accounts/{$accountId}/envelopes/{$envelopeId}/documents" Set resp = http.PTextSb("PUT",url,sbJson,"utf-8","application/json",False,False) If (http.LastMethodSuccess = False) Then Debug.Print http.LastErrorText Exit Sub End If Dim jResp As Chilkat.JsonObject Set jResp = Chilkat.NewJsonObject success = jResp.Load(resp.BodyStr) jResp.EmitCompact = False Debug.Print "Response Body:" Debug.Print jResp.Emit() ' If you get a 401 response status code, it's likely you need to refresh the DocuSign OAuth2 token). respStatusCode = resp.StatusCode Debug.Print "Response Status Code = "; respStatusCode If (respStatusCode >= 400) Then Debug.Print "Response Header:" Debug.Print resp.Header Debug.Print "Failed." Exit Sub End If ' Sample JSON response: ' (Sample code for parsing the JSON response is shown below) ' { ' "envelopeId": "da9fb811-e6a4-48c0-a9fb-81ed18b989af", ' "envelopeDocuments": [ ' { ' "documentId": "1", ' "documentIdGuid": "38e919fc-0a77-4b0c-9da0-e3530f4e6fc7", ' "name": "project_xyz.pdf", ' "type": "content", ' "uri": "/envelopes/da9fb811-e6a4-48c0-a9fb-81ed18b989af/documents/1", ' "order": "3", ' "containsPdfFormFields": "false", ' "templateRequired": "false", ' "authoritativeCopy": "false" ' } ' ] ' } ' Sample code for parsing the JSON response... ' Use the following online tool to generate parsing code from sample JSON: ' Generate Parsing Code from JSON envelopeId = jResp.StringOf("envelopeId") i = 0 count_i = jResp.SizeOfArray("envelopeDocuments") Do While i < count_i jResp.I = i documentId = jResp.StringOf("envelopeDocuments[i].documentId") documentIdGuid = jResp.StringOf("envelopeDocuments[i].documentIdGuid") name = jResp.StringOf("envelopeDocuments[i].name") v_type = jResp.StringOf("envelopeDocuments[i].type") uri = jResp.StringOf("envelopeDocuments[i].uri") order = jResp.StringOf("envelopeDocuments[i].order") containsPdfFormFields = jResp.StringOf("envelopeDocuments[i].containsPdfFormFields") templateRequired = jResp.StringOf("envelopeDocuments[i].templateRequired") authoritativeCopy = jResp.StringOf("envelopeDocuments[i].authoritativeCopy") i = i + 1 Loop |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.