Visual FoxPro

Outlook Contacts Create a Contact

See more Outlook Contact Examples

Creates an Outlook Contact. Visual FoxPro

LOCAL lnSuccess
LOCAL loHttp
LOCAL loJsonToken
LOCAL loJson
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 POST:

*  POST https://graph.microsoft.com/v1.0/me/contacts
*  Content-type: application/json
*  
*  {
*    "givenName": "Pavel",
*    "surname": "Bansky",
*    "emailAddresses": [
*      {
*        "address": "pavelb@fabrikam.onmicrosoft.com",
*        "name": "Pavel Bansky"
*      }
*    ],
*    "businessPhones": [
*      "+1 732 555 0102"
*    ]
*  }

*  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("givenName","Pavel")
loJson.UpdateString("surname","Bansky")
loJson.UpdateString("emailAddresses[0].address","pavelb@fabrikam.onmicrosoft.com")
loJson.UpdateString("emailAddresses[0].name","Pavel Bansky")
loJson.UpdateString("businessPhones[0]","+1 732 555 0102")

*  Send the HTTP POST
loResp = CreateObject('Chilkat.HttpResponse')
lnSuccess = loHttp.HttpJson("POST","https://graph.microsoft.com/v1.0/me/contacts",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 <> 201) 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/\"EQAAABYAAABUcG0qWqkmQYqWLHQataQxAAD0iYfT\"",
*    "id": "AAMkADYzZWE3YmZmLWU0YzgtNGNkZC04MGE1LWFiYTFlNTRlY2QwYQBGAAAAAAAu7cUXL5YOTrdsUIw7-v8FBwBUcG0qWqkmQYqWLHQataQxAAAAAAEOAABUcG0qWqkmQYqWLHQataQxAAD0sxexAAA=",
*    "createdDateTime": "2021-06-29T16:32:05Z",
*    "lastModifiedDateTime": "2021-06-29T16:32:06Z",
*    "changeKey": "EQAAABYAAABUcG0qWqkmQYqWLHQataQxAAD0iYfT",
*    "categories": [
*    ],
*    "parentFolderId": "AAMkADYzZWE3YmZmLWU0YzgtNGNkZC04MGE1LWFiYTFlNTRlY2QwYQAuAAAAAAAu7cUXL5YOTrdsUIw7-v8FAQBUcG0qWqkmQYqWLHQataQxAAAAAAEOAAA=",
*    "birthday": null,
*    "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": {},
*    "businessAddress": {},
*    "otherAddress": {}
*  }

? "Contact created."

RELEASE loHttp
RELEASE loJsonToken
RELEASE loJson
RELEASE loResp
RELEASE loJResp