Visual FoxPro

Constant Contact - Restore a Deleted Contact

See more Constant Contact Examples

Restores a previously deleted contact with a given id. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJson
LOCAL loSbRequestBody
LOCAL loResp
LOCAL loSbResponseBody
LOCAL loJResp
LOCAL lnRespStatusCode
LOCAL lcContact_id
LOCAL lcFirst_name
LOCAL lcLast_name
LOCAL lcUpdate_source
LOCAL lcCreate_source
LOCAL lcCreated_at
LOCAL lcUpdated_at
LOCAL lcEmail_addressAddress
LOCAL lcEmail_addressPermission_to_send
LOCAL lcEmail_addressCreated_at
LOCAL lcEmail_addressUpdated_at
LOCAL lcEmail_addressOpt_in_source
LOCAL lcEmail_addressOpt_in_date
LOCAL lcEmail_addressConfirm_status

lnSuccess = 0

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

loHttp = 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}"
*    ]
*  }

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

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

loSbRequestBody = CreateObject('Chilkat.StringBuilder')
loJson.EmitSb(loSbRequestBody)

loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpSb("PUT","https://api.cc.email/v3/contacts/{contact_id}",loSbRequestBody,"utf-8","application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJson
    RELEASE loSbRequestBody
    RELEASE loResp
    CANCEL
ENDIF

loSbResponseBody = CreateObject('Chilkat.StringBuilder')
loResp.GetBodySb(loSbResponseBody)
loJResp = CreateObject('Chilkat.JsonObject')
loJResp.LoadSb(loSbResponseBody)
loJResp.EmitCompact = 0

? "Response Body:"
? loJResp.Emit()

lnRespStatusCode = loResp.StatusCode
? "Response Status Code = " + STR(lnRespStatusCode)
IF (lnRespStatusCode >= 400) THEN
    ? "Response Header:"
    ? loResp.Header
    ? "Failed."
    RELEASE loHttp
    RELEASE loJson
    RELEASE loSbRequestBody
    RELEASE loResp
    RELEASE loSbResponseBody
    RELEASE loJResp
    CANCEL
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

lcContact_id = loJResp.StringOf("contact_id")
lcFirst_name = loJResp.StringOf("first_name")
lcLast_name = loJResp.StringOf("last_name")
lcUpdate_source = loJResp.StringOf("update_source")
lcCreate_source = loJResp.StringOf("create_source")
lcCreated_at = loJResp.StringOf("created_at")
lcUpdated_at = loJResp.StringOf("updated_at")
lcEmail_addressAddress = loJResp.StringOf("email_address.address")
lcEmail_addressPermission_to_send = loJResp.StringOf("email_address.permission_to_send")
lcEmail_addressCreated_at = loJResp.StringOf("email_address.created_at")
lcEmail_addressUpdated_at = loJResp.StringOf("email_address.updated_at")
lcEmail_addressOpt_in_source = loJResp.StringOf("email_address.opt_in_source")
lcEmail_addressOpt_in_date = loJResp.StringOf("email_address.opt_in_date")
lcEmail_addressConfirm_status = loJResp.StringOf("email_address.confirm_status")

RELEASE loHttp
RELEASE loJson
RELEASE loSbRequestBody
RELEASE loResp
RELEASE loSbResponseBody
RELEASE loJResp