Xbase++

Constant Contact - Restore a Deleted Contact

See more Constant Contact Examples

Restores a previously deleted contact with a given id. Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJson
LOCAL oSbRequestBody
LOCAL oResp
LOCAL oSbResponseBody
LOCAL oJResp
LOCAL nRespStatusCode
LOCAL cContact_id
LOCAL cFirst_name
LOCAL cLast_name
LOCAL cUpdate_source
LOCAL cCreate_source
LOCAL cCreated_at
LOCAL cUpdated_at
LOCAL cEmail_addressAddress
LOCAL cEmail_addressPermission_to_send
LOCAL cEmail_addressCreated_at
LOCAL cEmail_addressUpdated_at
LOCAL cEmail_addressOpt_in_source
LOCAL cEmail_addressOpt_in_date
LOCAL cEmail_addressConfirm_status

nSuccess := 0

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

oHttp := CreateObject("Chilkat.Http")

//  Implements the following CURL command:

//  curl -X PUT \
//    https://api.cc.email/v3/contacts/{contact_id} \
//    -H 'Accept: application/json' \
//    -H 'Authorization: Bearer {access_token}' \
//    -H 'Cache-Control: no-cache' \
//    -H 'Content-Type: application/json' \
//    -d '{
//  
//      "first_name": "John",
//      "last_name": "Byrd",
//      "email_address": {
//          "address": "example@example.com",
//          "permission_to_send": "explicit"
//        },
//      "update_source": "Contact",
//      "list_memberships":["{list_id1}","{list_id2}"]
//  }'

//  Use the following online tool to generate HTTP code from a CURL command
//  Convert a cURL Command to HTTP Source Code

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

//  The following JSON is sent in the request body.

//  {
//    "first_name": "John",
//    "last_name": "Byrd",
//    "email_address": {
//      "address": "example@example.com",
//      "permission_to_send": "explicit"
//    },
//    "update_source": "Contact",
//    "list_memberships": [
//      "{list_id1}",
//      "{list_id2}"
//    ]
//  }

oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("first_name", "John")
oJson:UpdateString("last_name", "Byrd")
oJson:UpdateString("email_address.address", "example@example.com")
oJson:UpdateString("email_address.permission_to_send", "explicit")
oJson:UpdateString("update_source", "Contact")
oJson:UpdateString("list_memberships[0]", "{list_id1}")
oJson:UpdateString("list_memberships[1]", "{list_id2}")

//  Adds the "Authorization: Bearer ACCESS_TOKEN" header.
oHttp:AuthToken := "ACCESS_TOKEN"
oHttp:SetRequestHeader("Accept", "application/json")
oHttp:SetRequestHeader("Content-Type", "application/json")
oHttp:SetRequestHeader("Cache-Control", "no-cache")

oSbRequestBody := CreateObject("Chilkat.StringBuilder")
oJson:EmitSb(oSbRequestBody)

oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpSb("PUT", "https://api.cc.email/v3/contacts/{contact_id}", oSbRequestBody, "utf-8", "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJson:destroy()
    oSbRequestBody:destroy()
    oResp:destroy()
    RETURN
ENDIF

oSbResponseBody := CreateObject("Chilkat.StringBuilder")
oResp:GetBodySb(oSbResponseBody)
oJResp := CreateObject("Chilkat.JsonObject")
oJResp:LoadSb(oSbResponseBody)
oJResp:EmitCompact := 0

? "Response Body:"
? oJResp:Emit()

nRespStatusCode := oResp:StatusCode
? "Response Status Code = " + Str(nRespStatusCode)
IF (nRespStatusCode >= 400)
    ? "Response Header:"
    ? oResp:Header
    ? "Failed."
    oHttp:destroy()
    oJson:destroy()
    oSbRequestBody:destroy()
    oResp:destroy()
    oSbResponseBody:destroy()
    oJResp:destroy()
    RETURN
ENDIF

//  Sample JSON response:
//  (Sample code for parsing the JSON response is shown below)

//  {
//    "contact_id": "{contact_id}",
//    "first_name": "John",
//    "last_name": "Byrd",
//    "update_source": "Contact",
//    "create_source": "Account",
//    "created_at": "2013-04-01T15:07:07-04:00",
//    "updated_at": "2018-02-20T16:47:40-05:00",
//    "email_address": {
//      "address": "example@example.com",
//      "permission_to_send": "implicit",
//      "created_at": "2013-04-01T15:07:07-04:00",
//      "updated_at": "2018-02-20T16:47:40-05:00",
//      "opt_in_source": "Account",
//      "opt_in_date": "2015-03-17T11:13:28-04:00",
//      "confirm_status": "off"
//    }
//  }

//  Sample code for parsing the JSON response...
//  Use the following online tool to generate parsing code from sample JSON:
//  Generate Parsing Code from JSON

cContact_id := oJResp:StringOf("contact_id")
cFirst_name := oJResp:StringOf("first_name")
cLast_name := oJResp:StringOf("last_name")
cUpdate_source := oJResp:StringOf("update_source")
cCreate_source := oJResp:StringOf("create_source")
cCreated_at := oJResp:StringOf("created_at")
cUpdated_at := oJResp:StringOf("updated_at")
cEmail_addressAddress := oJResp:StringOf("email_address.address")
cEmail_addressPermission_to_send := oJResp:StringOf("email_address.permission_to_send")
cEmail_addressCreated_at := oJResp:StringOf("email_address.created_at")
cEmail_addressUpdated_at := oJResp:StringOf("email_address.updated_at")
cEmail_addressOpt_in_source := oJResp:StringOf("email_address.opt_in_source")
cEmail_addressOpt_in_date := oJResp:StringOf("email_address.opt_in_date")
cEmail_addressConfirm_status := oJResp:StringOf("email_address.confirm_status")

oHttp:destroy()
oJson:destroy()
oSbRequestBody:destroy()
oResp:destroy()
oSbResponseBody:destroy()
oJResp:destroy()