(AutoIt) SugarCRM: Importing Email Addresses (New Records)

Demonstrates how to import a new contact with email addresses.

For more information, see https://support.sugarcrm.com/Documentation/Sugar_Developer/Sugar_Developer_Guide_7.9/Integration/Migration/Importing_Records/Importing_Email_Addresses/

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.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"

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