(VBScript) DocuSign List Folder Items

See more DocuSign Examples

Retrieves a list of the envelopes in the specified folder.

For more information, see https://developers.docusign.com/docs/esign-rest-api/reference/folders/folders/listitems/

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.Http")

' Implements the following HTTP request:
' GET /restapi/v2.1/accounts/{accountId}/folders/{folderId}

' Adds the "Authorization: Bearer eyJ0eXAi.....UE8Kl_V8KroQ" header.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jsonToken = CreateObject("Chilkat.JsonObject")
' Load a previously obtained OAuth2 access token.
success = jsonToken.LoadFile("qa_data/tokens/docusign.json")
If (success = 0) Then
    outFile.WriteLine(jsonToken.LastErrorText)
    WScript.Quit
End If

http.AuthToken = jsonToken.StringOf("access_token")

' Use your account ID and a valid folderId here:
success = http.SetUrlVar("accountId","7f3f65ed-5e87-418d-94c1-92499ddc8252")
success = http.SetUrlVar("folderId","94644782-31b7-4f82-a2c1-26d8a9306f8c")

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbResponseBody = CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://demo.docusign.net/restapi/v2.1/accounts/{$accountId}/folders/{$folderId}",sbResponseBody)
If (success = 0) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set jResp = CreateObject("Chilkat.JsonObject")
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0

outFile.WriteLine("Response Body:")
outFile.WriteLine(jResp.Emit())

respStatusCode = http.LastStatus
outFile.WriteLine("Response Status Code = " & respStatusCode)
If (respStatusCode >= 400) Then
    outFile.WriteLine("Response Header:")
    outFile.WriteLine(http.LastResponseHeader)
    outFile.WriteLine("Failed.")
    WScript.Quit
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'   "resultSetSize": "sample string 1",
'   "startPosition": "sample string 2",
'   "endPosition": "sample string 3",
'   "totalSetSize": "sample string 4",
'   "previousUri": "sample string 5",
'   "nextUri": "sample string 6",
'   "folderItems": [
'     {
'       "ownerName": "sample string 1",
'       "envelopeId": "sample string 2",
'       "envelopeUri": "sample string 3",
'       "status": "sample string 4",
'       "senderName": "sample string 5",
'       "senderEmail": "sample string 6",
'       "createdDateTime": "sample string 7",
'       "sentDateTime": "sample string 8",
'       "completedDateTime": "sample string 9",
'       "subject": "sample string 10",
'       "templateId": "sample string 11",
'       "name": "sample string 12",
'       "shared": "sample string 13",
'       "password": "sample string 14",
'       "description": "sample string 15",
'       "lastModified": "sample string 16",
'       "pageCount": 17,
'       "uri": "sample string 18",
'       "is21CFRPart11": "sample string 19",
'       "isSignatureProviderEnvelope": "sample string 20",
'       "customFields": [
'         {
'           "fieldId": "sample string 1",
'           "name": "sample string 2",
'           "show": "sample string 3",
'           "required": "sample string 4",
'           "value": "sample string 5",
'           "configurationType": "sample string 6",
'           "errorDetails": {
'             "errorCode": "sample string 1",
'             "message": "sample string 2"
'           }
'         }
'       ]
'     }
'   ]
' }

' Sample code for parsing the JSON response...
' Use the following online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON

resultSetSize = jResp.StringOf("resultSetSize")
startPosition = jResp.StringOf("startPosition")
endPosition = jResp.StringOf("endPosition")
totalSetSize = jResp.StringOf("totalSetSize")
previousUri = jResp.StringOf("previousUri")
nextUri = jResp.StringOf("nextUri")
i = 0
count_i = jResp.SizeOfArray("folderItems")
Do While i < count_i
    jResp.I = i
    ownerName = jResp.StringOf("folderItems[i].ownerName")
    envelopeId = jResp.StringOf("folderItems[i].envelopeId")
    envelopeUri = jResp.StringOf("folderItems[i].envelopeUri")
    status = jResp.StringOf("folderItems[i].status")
    senderName = jResp.StringOf("folderItems[i].senderName")
    senderEmail = jResp.StringOf("folderItems[i].senderEmail")
    createdDateTime = jResp.StringOf("folderItems[i].createdDateTime")
    sentDateTime = jResp.StringOf("folderItems[i].sentDateTime")
    completedDateTime = jResp.StringOf("folderItems[i].completedDateTime")
    subject = jResp.StringOf("folderItems[i].subject")
    templateId = jResp.StringOf("folderItems[i].templateId")
    name = jResp.StringOf("folderItems[i].name")
    shared = jResp.StringOf("folderItems[i].shared")
    password = jResp.StringOf("folderItems[i].password")
    description = jResp.StringOf("folderItems[i].description")
    lastModified = jResp.StringOf("folderItems[i].lastModified")
    pageCount = jResp.IntOf("folderItems[i].pageCount")
    uri = jResp.StringOf("folderItems[i].uri")
    is21CFRPart11 = jResp.StringOf("folderItems[i].is21CFRPart11")
    isSignatureProviderEnvelope = jResp.StringOf("folderItems[i].isSignatureProviderEnvelope")
    j = 0
    count_j = jResp.SizeOfArray("folderItems[i].customFields")
    Do While j < count_j
        jResp.J = j
        fieldId = jResp.StringOf("folderItems[i].customFields[j].fieldId")
        name = jResp.StringOf("folderItems[i].customFields[j].name")
        show = jResp.StringOf("folderItems[i].customFields[j].show")
        required = jResp.StringOf("folderItems[i].customFields[j].required")
        value = jResp.StringOf("folderItems[i].customFields[j].value")
        configurationType = jResp.StringOf("folderItems[i].customFields[j].configurationType")
        errorDetailsErrorCode = jResp.StringOf("folderItems[i].customFields[j].errorDetails.errorCode")
        errorDetailsMessage = jResp.StringOf("folderItems[i].customFields[j].errorDetails.message")
        j = j + 1
    Loop
    i = i + 1
Loop

outFile.Close