(Excel) Download Full Intake Form in JSON Format

See more IntakeQ Examples

The full intake form is very similar to intake summary object, except it adds an array of questions.

For more information, see https://support.intakeq.com/article/31-intakeq-api#download-intake

Download Excel Class Modules Chilkat Excel Class Modules

' 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

' To log the exact HTTP request/response to a session log file:
http.SessionLogFilename = "/someDir/sessionLog.txt"

http.SetRequestHeader "X-Auth-Key","xxxxxxxxxxxxxxxxxxxxxxxxx"

Dim sbJson As Chilkat.StringBuilder
Set sbJson = Chilkat.NewStringBuilder

success = http.QuickGetSb("https://intakeq.com/api/v1/intakes/[intake-id]",sbJson)
If (success = False) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

If (http.LastStatus <> 200) Then
    Debug.Print "status code: "; http.LastStatus
    Debug.Print "response: "; sbJson.GetAsString()
    Exit Sub
End If

Debug.Print "raw response: "
Debug.Print sbJson.GetAsString()

Dim json As Chilkat.JsonObject
Set json = Chilkat.NewJsonObject

Dim success As Boolean
success = json.LoadSb(sbJson)
json.EmitCompact = True

Debug.Print json.Emit()