Visual FoxPro
Outlook Contacts Update (PATCH) a Contact

Update the properties of an Outlook contact object.
Chilkat Visual FoxPro Downloads

Visual FoxPro
LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
LOCAL loJson
LOCAL lcId
LOCAL loResp
LOCAL loJResp

lnSuccess = 0

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

loHttp = CreateObject('Chilkat.Http')

* Use your previously obtained access token here: Get Outlook Contacts OAuth2 Access Token (Azure AD v2.0 Endpoint).

loJsonToken = CreateObject('Chilkat.JsonObject')
lnSuccess = loJsonToken.LoadFile("qa_data/tokens/outlookContacts.json")
IF (lnSuccess = 0) THEN
    ? loJsonToken.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    CANCEL
ENDIF

loHttp.AuthToken = loJsonToken.StringOf("access_token")

* Send the following PATCH:

* PATCH https://graph.microsoft.com/v1.0/me/contacts/{id}
* Content-type: application/json
* Content-length: 1977
* 
* {
*   "homeAddress": {
*     "street": "123 Some street",
*     "city": "Seattle",
*     "state": "WA",
*     "postalCode": "98121"
*   },
*   "birthday": "1974-07-22"
* }

* Build the JSON body of the POST.

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

loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("homeAddress.street","123 Some street")
loJson.UpdateString("homeAddress.city","Seattle")
loJson.UpdateString("homeAddress.state","WA")
loJson.UpdateString("homeAddress.postalCode","98121")
loJson.UpdateString("birthday","1974-07-22")

* We need the ID of the contact to be updated.
* This was available in the response when we created the contact:  Create an Outlook Contact.
* Or you can list contacts to get the ID: List Outlook Contacts).

lcId = "AAMkADYzZWE3YmZmLWU0YzgtNGNkZC04MGE1LWFiYTFlNTRlY2QwYQBGAAAAAAAu7cUXL5YOTrdsUIw7-v8FBwBUcG0qWqkmQYqWLHQataQxAAAAAAEOAABUcG0qWqkmQYqWLHQataQxAAD0sxexAAA="
loHttp.SetUrlVar("id",lcId)

* Send the HTTP PATCH
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("PATCH","https://graph.microsoft.com/v1.0/me/contacts/{$id}",loJson,"application/json",loResp)
IF (lnSuccess = 0) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJson
    RELEASE loResp
    CANCEL
ENDIF

? "Response status code = " + STR(loResp.StatusCode)

loJResp = CreateObject('Chilkat.JsonObject')
loJResp.Load(loResp.BodyStr)
loJResp.EmitCompact = 0
? loJResp.Emit()

* The send succeeded if the response status code = 201.
IF (loResp.StatusCode <> 200) THEN
    ? "Failed"
    RELEASE loHttp
    RELEASE loJsonToken
    RELEASE loJson
    RELEASE loResp
    RELEASE loJResp
    CANCEL
ENDIF

* Sample JSON response:

* {
*   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('4ee732c3-322e-4a6b-b729-2fd1eb5c6004')/contacts/$entity",
*   "@odata.etag": "W/\"EQAAABYAAABUcG0qWqkmQYqWLHQataQxAAD0iYu5\"",
*   "id": "AAMkADYzZWE3YmZmLWU0YzgtNGNkZC04MGE1LWFiYTFlNTRlY2QwYQBGAAAAAAAu7cUXL5YOTrdsUIw7-v8FBwBUcG0qWqkmQYqWLHQataQxAAAAAAEOAABUcG0qWqkmQYqWLHQataQxAAD0sxexAAA=",
*   "createdDateTime": "2021-06-29T16:32:05Z",
*   "lastModifiedDateTime": "2021-06-29T16:57:39Z",
*   "changeKey": "EQAAABYAAABUcG0qWqkmQYqWLHQataQxAAD0iYu5",
*   "categories": [
*   ],
*   "parentFolderId": "AAMkADYzZWE3YmZmLWU0YzgtNGNkZC04MGE1LWFiYTFlNTRlY2QwYQAuAAAAAAAu7cUXL5YOTrdsUIw7-v8FAQBUcG0qWqkmQYqWLHQataQxAAAAAAEOAAA=",
*   "birthday": "1974-07-22T11:59:00Z",
*   "fileAs": "",
*   "displayName": "Pavel Bansky",
*   "givenName": "Pavel",
*   "initials": null,
*   "middleName": null,
*   "nickName": null,
*   "surname": "Bansky",
*   "title": null,
*   "yomiGivenName": null,
*   "yomiSurname": null,
*   "yomiCompanyName": null,
*   "generation": null,
*   "imAddresses": [
*   ],
*   "jobTitle": null,
*   "companyName": null,
*   "department": null,
*   "officeLocation": null,
*   "profession": null,
*   "businessHomePage": null,
*   "assistantName": null,
*   "manager": null,
*   "homePhones": [
*   ],
*   "mobilePhone": null,
*   "businessPhones": [
*     "+1 732 555 0102"
*   ],
*   "spouseName": null,
*   "personalNotes": "",
*   "children": [
*   ],
*   "emailAddresses": [
*     {
*       "name": "Pavel Bansky",
*       "address": "pavelb@fabrikam.onmicrosoft.com"
*     }
*   ],
*   "homeAddress": {
*     "street": "123 Some street",
*     "city": "Seattle",
*     "state": "WA",
*     "postalCode": "98121"
*   },
*   "businessAddress": {},
*   "otherAddress": {}
* }

? "Contact updated."

RELEASE loHttp
RELEASE loJsonToken
RELEASE loJson
RELEASE loResp
RELEASE loJResp