VB6 / New FreshBooks / Resend Verification Code
Back to Collection Items
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New ChilkatHttp
Dim success As Long
' Use this online tool to generate code from sample JSON: Generate Code to Create JSON
' The following JSON is sent in the request body.
' {
' "callback": {
' "callback_id": 2001,
' "resend": true
' }
' }
Dim json As New ChilkatJsonObject
success = json.UpdateInt("callback.callback_id",2001)
success = json.UpdateBool("callback.resend",1)
' Adds the "Authorization: Bearer <access_token>" header.
http.AuthToken = "<access_token>"
http.SetRequestHeader "Content-Type","application/json"
Dim sbRequestBody As New ChilkatStringBuilder
success = json.EmitSb(sbRequestBody)
Dim resp As ChilkatHttpResponse
Set resp = http.PTextSb("PUT","https://api.freshbooks.com/events/account/{{accountId}}/events/callbacks/{{callbackId}}",sbRequestBody,"utf-8","application/json",0,0)
If (http.LastMethodSuccess = 0) Then
Debug.Print http.LastErrorText
Exit Sub
End If
Debug.Print resp.StatusCode
Debug.Print resp.BodyStr
Curl Command
curl -X PUT
-H "Authorization: Bearer <access_token>"
-H "Content-Type: application/json"
-d '{
"callback": {
"callback_id": 2001,
"resend": true
}
}'
https://api.freshbooks.com/events/account/{{accountId}}/events/callbacks/{{callbackId}}
Postman Collection Item JSON
{
"name": "Resend Verification Code",
"request": {
"method": "PUT",
"header": [
{
"key": "Content-Type",
"name": "Content-Type",
"value": "application/json",
"type": "text"
}
],
"body": {
"mode": "raw",
"raw": "{\n \"callback\": {\n \"callback_id\": 2001,\n \"resend\": true\n }\n}"
},
"url": {
"raw": "https://api.freshbooks.com/events/account/{{accountId}}/events/callbacks/{{callbackId}}",
"protocol": "https",
"host": [
"api",
"freshbooks",
"com"
],
"path": [
"events",
"account",
"{{accountId}}",
"events",
"callbacks",
"{{callbackId}}"
]
}
},
"response": [
]
}