AutoIt Requires Chilkat v11.0.0+

SugarCRM: Importing Email Addresses (New Records)

See more SugarCRM Examples

Demonstrates how to import a new contact with email addresses. AutoIt

Local $bSuccess = False

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

$oHttp = ObjCreate("Chilkat.Http")

$oHttp.Accept = "application/json"

;  The following JSON is sent in the request body:

;  {
;    "first_name": "Rob",
;    "last_name": "Robertson",
;    "email": [
;      {
;        "email_address": "rob.robertson@sugar.crm",
;        "primary_address": "1",
;        "invalid_email": "0",
;        "opt_out": "0"
;      },
;      {
;        "email_address": "rob@sugar.crm",
;        "primary_address": "0",
;        "invalid_email": "0",
;        "opt_out": "1"
;      }
;    ]
;  }

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

$oJsonRequestBody = ObjCreate("Chilkat.JsonObject")
$oJsonRequestBody.UpdateString("first_name","Rob")
$oJsonRequestBody.UpdateString("last_name","Robertson")
$oJsonRequestBody.UpdateString("email[0].email_address","rob.robertson@sugar.crm")
$oJsonRequestBody.UpdateString("email[0].primary_address","1")
$oJsonRequestBody.UpdateString("email[0].invalid_email","0")
$oJsonRequestBody.UpdateString("email[0].opt_out","0")
$oJsonRequestBody.UpdateString("email[1].email_address","rob@sugar.crm")
$oJsonRequestBody.UpdateString("email[1].primary_address","0")
$oJsonRequestBody.UpdateString("email[1].invalid_email","0")
$oJsonRequestBody.UpdateString("email[1].opt_out","1")

Local $sUrl = "http://<site url>/rest/v10/Contacts"

$oHttp.SetRequestHeader "OAuth-Token","ACCESS_TOKEN"

$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpJson("POST",$sUrl,$oJsonRequestBody,"application/json",$oResp)
If ($bSuccess = False) 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