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