(Tcl) 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 Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set http [new_CkHttp]

CkHttp_put_Accept $http "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

set jsonRequestBody [new_CkJsonObject]

CkJsonObject_UpdateString $jsonRequestBody "first_name" "Rob"
CkJsonObject_UpdateString $jsonRequestBody "last_name" "Robertson"
CkJsonObject_UpdateString $jsonRequestBody "email[0].email_address" "rob.robertson@sugar.crm"
CkJsonObject_UpdateString $jsonRequestBody "email[0].primary_address" "1"
CkJsonObject_UpdateString $jsonRequestBody "email[0].invalid_email" "0"
CkJsonObject_UpdateString $jsonRequestBody "email[0].opt_out" "0"
CkJsonObject_UpdateString $jsonRequestBody "email[1].email_address" "rob@sugar.crm"
CkJsonObject_UpdateString $jsonRequestBody "email[1].primary_address" "0"
CkJsonObject_UpdateString $jsonRequestBody "email[1].invalid_email" "0"
CkJsonObject_UpdateString $jsonRequestBody "email[1].opt_out" "1"

set url "http://<site url>/rest/v10/Contacts"

CkHttp_SetRequestHeader $http "OAuth-Token" "ACCESS_TOKEN"

# resp is a CkHttpResponse
set resp [CkHttp_PText $http "POST" $url [CkJsonObject_emit $jsonRequestBody] "utf-8" "application/json" 0 0]
if {[CkHttp_get_LastMethodSuccess $http] != 1} then {
    puts [CkHttp_lastErrorText $http]
    delete_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    exit
}

puts "Response Status Code: [CkHttpResponse_get_StatusCode $resp]"

set jsonResponse [new_CkJsonObject]

CkJsonObject_Load $jsonResponse [CkHttpResponse_bodyStr $resp]
CkJsonObject_put_EmitCompact $jsonResponse 0
puts [CkJsonObject_emit $jsonResponse]

if {[CkHttpResponse_get_StatusCode $resp] >= 300} then {
    puts "Failed."
    delete_CkHttpResponse $resp

    delete_CkHttp $http
    delete_CkJsonObject $jsonRequestBody
    delete_CkJsonObject $jsonResponse
    exit
}

delete_CkHttpResponse $resp


delete_CkHttp $http
delete_CkJsonObject $jsonRequestBody
delete_CkJsonObject $jsonResponse