(AutoIt) Activix CRM Create a Communication

Create a communication. Returns the created communication.

For more information, see https://docs.crm.activix.ca/api/resources/communication

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

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

$oHttp = ObjCreate("Chilkat.Http")

$oHttp.AuthToken = "ACCESS_TOKEN"

$oHttp.Accept = "application/json"

; The following JSON is sent in the request body:

; {
;   "lead_id": "LEAD_ID",
;   "method": "phone",
;   "type": "outgoing",
;   "call_status": "calling"
; }

; Use this online tool to generate the code from sample JSON: 
; Generate Code to Create JSON

$oJsonRequestBody = ObjCreate("Chilkat.JsonObject")
$oJsonRequestBody.UpdateString("lead_id","LEAD_ID")
$oJsonRequestBody.UpdateString("method","phone")
$oJsonRequestBody.UpdateString("type","outgoing")
$oJsonRequestBody.UpdateString("call_status","calling")

Local $sUrl = "https://crm.activix.ca/api/v2/communications"

Local $oResp = $oHttp.PText("POST",$sUrl,$oJsonRequestBody.Emit(),"utf-8","application/json",False,False)
If ($oHttp.LastMethodSuccess <> True) Then
    ConsoleWrite($oHttp.LastErrorText & @CRLF)
    Exit
EndIf

ConsoleWrite("Response Status Code: " & $oResp.StatusCode & @CRLF)

$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.Load($oResp.BodyStr)
$oJsonResponse.EmitCompact = False
ConsoleWrite($oJsonResponse.Emit() & @CRLF)

If ($oResp.StatusCode >= 300) Then
    ConsoleWrite("Failed." & @CRLF)

    Exit
EndIf

; Sample output...
; (See the parsing code below..)
; 
; Use the this online tool to generate parsing code from sample JSON: 
; Generate Parsing Code from JSON

; {
;   "data": {
;     "id": 5411998,
;     "created_at": "2019-06-10T13:01:40+00:00",
;     "updated_at": "2019-06-10T13:01:40+00:00",
;     "lead_id": 7135833,
;     "user_id": 13705,
;     "method": "phone",
;     "type": "outgoing",
;     "email_subject": null,
;     "email_body": null,
;     "email_client": null,
;     "email_user": null,
;     "call_duration": null,
;     "call_phone": null,
;     "call_status": "calling"
;   }
; }
; 

Local $iDataId
Local $sDataCreated_at
Local $sDataUpdated_at
Local $iDataLead_id
Local $iDataUser_id
Local $sDataMethod
Local $sDataType
Local $sDataEmail_subject
Local $sDataEmail_body
Local $sDataEmail_client
Local $sDataEmail_user
Local $sDataCall_duration
Local $sDataCall_phone
Local $sDataCall_status

$iDataId = $oJsonResponse.IntOf("data.id")
$sDataCreated_at = $oJsonResponse.StringOf("data.created_at")
$sDataUpdated_at = $oJsonResponse.StringOf("data.updated_at")
$iDataLead_id = $oJsonResponse.IntOf("data.lead_id")
$iDataUser_id = $oJsonResponse.IntOf("data.user_id")
$sDataMethod = $oJsonResponse.StringOf("data.method")
$sDataType = $oJsonResponse.StringOf("data.type")
$sDataEmail_subject = $oJsonResponse.StringOf("data.email_subject")
$sDataEmail_body = $oJsonResponse.StringOf("data.email_body")
$sDataEmail_client = $oJsonResponse.StringOf("data.email_client")
$sDataEmail_user = $oJsonResponse.StringOf("data.email_user")
$sDataCall_duration = $oJsonResponse.StringOf("data.call_duration")
$sDataCall_phone = $oJsonResponse.StringOf("data.call_phone")
$sDataCall_status = $oJsonResponse.StringOf("data.call_status")