Creates a new contact for a specific account. In this example, the account is Fourth Coffee, where the accountid = b6a19cdd-88df-e311-b8e5-6c3be5a8b200. Success is indicated by a 204 response status code with an empty response body.
curl -X POST https://my-dynamics-domain.api.crm.dynamics.com/api/data/v9.0/contacts \
-H "Accept: application/json" \
-H "Content-Type: application/json; charset=utf-8" \
-H "OData-MaxVersion: 4.0" \
-H "OData-Version: 4.0" \
-H "Authorization: Bearer DYNAMICS_CRM_ACCESS_TOKEN" \
-d '{
"fullname": "Gabby Cannata",
"firstname": "Gabby",
"lastname": "Cannata",
"emailaddress1": "gabby@fourthcoffee.com",
"address1_line1": "Carrera 1c No 10-01",
"address1_city": "Bogota",
"address1_country": "Colombia",
"telephone1": "408-233-1939",
"jobtitle": "Purchasing Assistant",
"parentcustomerid_account@odata.bind": "/accounts(b6a19cdd-88df-e311-b8e5-6c3be5a8b200)"
}'Use ChilkatAx-9.5.0-win32.pkg
Procedure Test
Handle hoRest
Boolean iSuccess
Boolean iBTls
Integer iPort
Boolean iBAutoReconnect
Handle hoJson
Variant vSbRequestBody
Handle hoSbRequestBody
Variant vSbResponseBody
Handle hoSbResponseBody
Integer iRespStatusCode
String sTemp1
Integer iTemp1
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// URL: https://my-dynamics-domain.api.crm.dynamics.com/api/data/v9.0/contacts
Move True To iBTls
Move 443 To iPort
Move True To iBAutoReconnect
Get ComConnect Of hoRest "my-dynamics-domain.api.crm.dynamics.com" iPort iBTls iBAutoReconnect To iSuccess
If (iSuccess <> True) Begin
Get ComConnectFailReason Of hoRest To iTemp1
Showln "ConnectFailReason: " iTemp1
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get ComUpdateString Of hoJson "fullname" "Gabby Cannata" To iSuccess
Get ComUpdateString Of hoJson "firstname" "Gabby" To iSuccess
Get ComUpdateString Of hoJson "lastname" "Cannata" To iSuccess
Get ComUpdateString Of hoJson "emailaddress1" "gabby@fourthcoffee.com" To iSuccess
Get ComUpdateString Of hoJson "address1_line1" "Carrera 1c No 10-01" To iSuccess
Get ComUpdateString Of hoJson "address1_city" "Bogota" To iSuccess
Get ComUpdateString Of hoJson "address1_country" "Colombia" To iSuccess
Get ComUpdateString Of hoJson "telephone1" "408-233-1939" To iSuccess
Get ComUpdateString Of hoJson "jobtitle" "Purchasing Assistant" To iSuccess
Get ComUpdateString Of hoJson '"parentcustomerid_account@odata.bind"' "/accounts(b6a19cdd-88df-e311-b8e5-6c3be5a8b200)" To iSuccess
Get ComAddHeader Of hoRest "Content-Type" "application/json; charset=utf-8" To iSuccess
Get ComAddHeader Of hoRest "OData-Version" "4.0" To iSuccess
Get ComAddHeader Of hoRest "Accept" "application/json" To iSuccess
Get ComAddHeader Of hoRest "OData-MaxVersion" "4.0" To iSuccess
Get ComAddHeader Of hoRest "Authorization" "Bearer DYNAMICS_CRM_ACCESS_TOKEN" To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbRequestBody
If (Not(IsComObjectCreated(hoSbRequestBody))) Begin
Send CreateComObject of hoSbRequestBody
End
Get pvComObject of hoSbRequestBody to vSbRequestBody
Get ComEmitSb Of hoJson vSbRequestBody To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
Send CreateComObject of hoSbResponseBody
End
Get pvComObject of hoSbRequestBody to vSbRequestBody
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComFullRequestSb Of hoRest "POST" "/api/data/v9.0/contacts" vSbRequestBody vSbResponseBody To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComResponseStatusCode Of hoRest To iRespStatusCode
If (iRespStatusCode >= 400) Begin
Showln "Response Status Code = " iRespStatusCode
Showln "Response Header:"
Get ComResponseHeader Of hoRest To sTemp1
Showln sTemp1
Showln "Response Body:"
Get ComGetAsString Of hoSbResponseBody To sTemp1
Showln sTemp1
Procedure_Return
End
End_Procedure