(Visual FoxPro) Outlook -- Create Reply Email, Update, and Send

Creates a reply email in the Drafts folder, updates the reply with information, and then sends the reply.

Note: This example requires Chilkat v9.5.0.68 or greater.

This example applies to: Exchange Online | Office 365 | Hotmail.com | Live.com | MSN.com | Outlook.com | Passport.com

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loHttp
LOCAL loHtFolderMap
LOCAL loSbMap
LOCAL lcFolderId
LOCAL lnSuccess
LOCAL loJson
LOCAL loSbResponse
LOCAL lcExistingMsgId
LOCAL loJsonRequestBody
LOCAL loResp
LOCAL loJsonResponse
LOCAL lcReplyMsgId
LOCAL loJsonPatch
LOCAL loSbHtml
LOCAL lnNumReplaced
LOCAL lnNumToRecipients
LOCAL i
LOCAL lnNumCcRecipients

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

loHttp = CreateObject('Chilkat_9_5_0.Http')

* Use your previously obtained access token here:
loHttp.AuthToken = "MICROSOFT_GRAPH_ACCESS_TOKEN"

* This example will search /Inbox for a message that will be replied to.
* First we need to get the folder ID for /Inbox.
* Then we'll search for messages based on some criteria, and reply to the 1st matching message.
* To reply, we'll create the reply message in the Drafts folder, update it with content, and the send.

* Get the folder ID for /Inbox from the folder map created by this example 
loHtFolderMap = CreateObject('Chilkat_9_5_0.Hashtable')
loSbMap = CreateObject('Chilkat_9_5_0.StringBuilder')
loSbMap.LoadFile("qa_data/outlook/folderMap.xml","utf-8")
loHtFolderMap.AddFromXmlSb(loSbMap)

* Get the ID for the "/Inbox" folder:
lcFolderId = loHtFolderMap.LookupStr("/Inbox")
IF (loHtFolderMap.LastMethodSuccess <> 1) THEN
    ? "Folder ID not found"
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    CANCEL
ENDIF

lnSuccess = 1
loJson = CreateObject('Chilkat_9_5_0.JsonObject')
loJson.EmitCompact = 0

* Search for unread emails in this folder from support@chilkatsoft.com 
loHttp.SetUrlVar("folder_id",lcFolderId)
loHttp.SetUrlVar("select","id,subject")
loHttp.SetUrlVar("filter","(isRead eq false) and (from/emailAddress/address eq 'support@chilkatsoft.com')")

loSbResponse = CreateObject('Chilkat_9_5_0.StringBuilder')
lnSuccess = loHttp.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",loSbResponse)
IF (lnSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    RELEASE loJson
    RELEASE loSbResponse
    CANCEL
ENDIF

loJson.LoadSb(loSbResponse)
* Show the results..
? loJson.Emit()

IF (loJson.SizeOfArray("value") = 0) THEN
    ? "Empty result set."
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    RELEASE loJson
    RELEASE loSbResponse
    CANCEL
ENDIF

* Sample results:

* {
*   "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('me')/mailFolders('AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA')/messages(id,subject)",
*   "value": [
*     {
*       "@odata.etag": "W/\"CQAAABYAAADn68XtMop0TpsYJGpfKXY9AADOpwfq\"",
*       "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAAM6Jj1wAAAA=",
*       "subject": "This email contains a PDF attachment"
*     },
*     {
*       "@odata.etag": "W/\"CQAAABYAAADn68XtMop0TpsYJGpfKXY9AADOpwfs\"",
*       "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEMAAAA5_vF7TKKdE6bGCRqXyl2PQAAAM6Jj14AAAA=",
*       "subject": "This email has the word Amazon in the subject.."
*     }
*   ]
* }

* We'll create a reply for the 1st message in the result set.
* We'll need the message existing id.

lcExistingMsgId = loJson.StringOf("value[0].id")

* To create a reply, send a request such as the following:

* 	POST https://graph.microsoft.com/v1.0/me/messages/{id}/createReply
* 	Content-type: application/json
* 	Content-length: 248
* 
* 	{
* 	  "comment": "comment-value"
* 	}

loJsonRequestBody = CreateObject('Chilkat_9_5_0.JsonObject')
loJsonRequestBody.UpdateString("comment","This is a comment")

loHttp.SetUrlVar("message_id",lcExistingMsgId)

* Create the reply in the Drafts folder:
loResp = loHttp.PostJson2("https://graph.microsoft.com/v1.0/me/messages/{$message_id}/createReply","application/json",loJsonRequestBody.Emit())
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    RELEASE loJson
    RELEASE loSbResponse
    RELEASE loJsonRequestBody
    CANCEL
ENDIF

* A 201 response indicates success.
IF (loResp.StatusCode = 201) THEN
    ? "Created reply draft."
    lnSuccess = 1
ELSE
    ? "Response status code = " + STR(loResp.StatusCode)
    ? "Failed to create reply draft."
    lnSuccess = 0
ENDIF

* Show the response in both cases..
loJsonResponse = CreateObject('Chilkat_9_5_0.JsonObject')
loJsonResponse.EmitCompact = 0
loJsonResponse.Load(loResp.BodyStr)
? loJsonResponse.Emit()

RELEASE loResp
IF (lnSuccess = 0) THEN
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    RELEASE loJson
    RELEASE loSbResponse
    RELEASE loJsonRequestBody
    RELEASE loJsonResponse
    CANCEL
ENDIF

* ----------------------------------------------
* Get the message id of the newly created reply.
lcReplyMsgId = loJsonResponse.StringOf("id")

* Update the message with new text in the body..
* Send an HTTP PATCH request that looks something like this:
* Only send the message parts that are changing.

* 	PATCH https://graph.microsoft.com/v1.0/me/messages/{reply_message_id}
* 	Content-type: application/json
* 	Content-length: 248
* 
* 	{
* 	  "subject": "subject-value",
* 	  "body": {
* 	    "contentType": "html",
* 	    "content": "updated HTML goes here"
* 	  },
* 	  "inferenceClassification": "other"
* 	}

loJsonPatch = CreateObject('Chilkat_9_5_0.JsonObject')
loJsonPatch.UpdateString("body.contentType","html")

* The reply email that Outlook created will contain the original message under a horizontal rule.
* The body.content should contain this substring:  "<body bgcolor=\"#FFFFFF\">\r\n<hr "
* We're going to insert our reply after the body tag, and before the hr tag.
loSbHtml = CreateObject('Chilkat_9_5_0.StringBuilder')
loJsonResponse.StringOfSb("body.content",loSbHtml)
* Insert the response HTML in the reply HTML body.
lnNumReplaced = loSbHtml.ReplaceBetween('<body bgcolor="#FFFFFF">',"<hr ",CHR(13) + CHR(10),"<p>This is my response.</p>")
IF (lnNumReplaced <> 1) THEN
    ? "Something is amiss!"
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    RELEASE loJson
    RELEASE loSbResponse
    RELEASE loJsonRequestBody
    RELEASE loJsonResponse
    RELEASE loJsonPatch
    RELEASE loSbHtml
    CANCEL
ENDIF

loJsonPatch.UpdateString("body.content",loSbHtml.GetAsString())

* Add additional CC, BCC, or TO recipients like this:
lnNumToRecipients = loJsonResponse.SizeOfArray("toRecipients")
i = 0
* Copy existing TO recipients.
DO WHILE i < lnNumToRecipients
    loJsonPatch.I = i
    loJsonResponse.I = i
    loJsonPatch.UpdateString("toRecipients[i].emailAddress.name",loJsonResponse.StringOf("toRecipients[i].emailAddress.name"))
    loJsonPatch.UpdateString("toRecipients[i].emailAddress.address",loJsonResponse.StringOf("toRecipients[i].emailAddress.address"))
    i = i + 1
ENDDO
* Add an additional TO recipient.
loJsonPatch.I = lnNumToRecipients
loJsonPatch.UpdateString("toRecipients[i].emailAddress.name","Chilkat")
loJsonPatch.UpdateString("toRecipients[i].emailAddress.address","admin@chilkat.io")

lnNumCcRecipients = loJsonResponse.SizeOfArray("ccRecipients")
i = 0
* Copy existing CC recipients.
DO WHILE i < lnNumCcRecipients
    loJsonPatch.I = i
    loJsonResponse.I = i
    loJsonPatch.UpdateString("ccRecipients[i].emailAddress.name",loJsonResponse.StringOf("ccRecipients[i].emailAddress.name"))
    loJsonPatch.UpdateString("ccRecipients[i].emailAddress.address",loJsonResponse.StringOf("ccRecipients[i].emailAddress.address"))
    i = i + 1
ENDDO
* Add an additional CC recipient.
loJsonPatch.I = lnNumCcRecipients
loJsonPatch.UpdateString("ccRecipients[i].emailAddress.name","Chilkat GMail")
loJsonPatch.UpdateString("ccRecipients[i].emailAddress.address","chilkat.support@gmail.com")

loJsonPatch.EmitCompact = 0
? loJsonPatch.Emit()

loHttp.SetUrlVar("message_id",lcReplyMsgId)
loResp = loHttp.PText("PATCH","https://graph.microsoft.com/v1.0/me/messages/{$message_id}",loJsonPatch.Emit(),"utf-8","application/json",0,0)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    RELEASE loJson
    RELEASE loSbResponse
    RELEASE loJsonRequestBody
    RELEASE loJsonResponse
    RELEASE loJsonPatch
    RELEASE loSbHtml
    CANCEL
ENDIF

* A 200 response indicates success.
IF (loResp.StatusCode = 200) THEN
    ? "Patched the reply draft."
    lnSuccess = 1
ELSE
    ? "Response status code = " + STR(loResp.StatusCode)
    ? "Failed to patch the reply draft."
    lnSuccess = 0
ENDIF

* Show the response in both cases..
loJsonResponse.Load(loResp.BodyStr)
? loJsonResponse.Emit()

RELEASE loResp
IF (lnSuccess = 0) THEN
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    RELEASE loJson
    RELEASE loSbResponse
    RELEASE loJsonRequestBody
    RELEASE loJsonResponse
    RELEASE loJsonPatch
    RELEASE loSbHtml
    CANCEL
ENDIF

* ---------------------------------------------------------------------
* OK, let's send the reply email...
* To send, POST with an empty request body:
* POST https://graph.microsoft.com/v1.0/me/messages/{id}/send

loResp = loHttp.PText("POST","https://graph.microsoft.com/v1.0/me/messages/{$message_id}/send","","","",0,0)
IF (loHttp.LastMethodSuccess <> 1) THEN
    ? loHttp.LastErrorText
    RELEASE loHttp
    RELEASE loHtFolderMap
    RELEASE loSbMap
    RELEASE loJson
    RELEASE loSbResponse
    RELEASE loJsonRequestBody
    RELEASE loJsonResponse
    RELEASE loJsonPatch
    RELEASE loSbHtml
    CANCEL
ENDIF

* A 202 response indicates success.
IF (loResp.StatusCode = 202) THEN
    ? "Sent the email reply."
    * If the status code was 202, there is no response body.
ELSE
    ? "Response status code = " + STR(loResp.StatusCode)
    ? "Failed to send the email reply."
    loJsonResponse.Load(loResp.BodyStr)
    ? loJsonResponse.Emit()
ENDIF

RELEASE loResp

? "Finished."

* -----------------------------------------------------------------------
* A sample successful JSON response for the createReply looks like this:

* 	{
* 	  "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#message",
* 	  "@odata.type": "#microsoft.graph.message",
* 	  "@odata.etag": "W/\"CQAAABYAAADn68XtMop0TpsYJGpfKXY9AADQAwR4\"",
* 	  "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEPAAAA5_vF7TKKdE6bGCRqXyl2PQAAAM-lQbAAAAA=",
* 	  "createdDateTime": "2017-06-01T14:31:56Z",
* 	  "lastModifiedDateTime": "2017-06-01T14:31:56Z",
* 	  "changeKey": "CQAAABYAAADn68XtMop0TpsYJGpfKXY9AADQAwR4",
* 	  "categories": [
* 	  ],
* 	  "receivedDateTime": "2017-06-01T14:31:56Z",
* 	  "sentDateTime": "2017-06-01T14:31:56Z",
* 	  "hasAttachments": false,
* 	  "internetMessageId": "<SN1PR20MB0461AF40FC899A8462536F04E6F60@SN1PR20MB0461.namprd20.prod.outlook.com>",
* 	  "subject": "RE: This email contains a PDF attachment",
* 	  "bodyPreview": "________________________________\r\nFrom: Chilkat Software <support@chilkatsoft.com>\r\nSent: Tuesday, May 30, 2017 10:58:56 PM\r\nTo: chilkatsoft@outlook.com\r\nSubject: This email contains a PDF attachment\r\n\r\nThis email contains a PDF attachment\r\n--\r\nBest Regar",
* 	  "importance": "normal",
* 	  "parentFolderId": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAgEPAAAA",
* 	  "conversationId": "AQQkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAQAMMaWY-CWmVOqNKt-NiVhkU=",
* 	  "isDeliveryReceiptRequested": false,
* 	  "isReadReceiptRequested": false,
* 	  "isRead": true,
* 	  "isDraft": true,
* 	  "webLink": "https://outlook.live.com/owa/?ItemID=AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5%2BvF7TKKdE6bGCRqXyl2PQAAAgEPAAAA5%2BvF7TKKdE6bGCRqXyl2PQAAAM%2FlQbAAAAA%3D&exvsurl=1&viewmodel=ReadMessageItem",
* 	  "inferenceClassification": "focused",
* 	  "body": {
* 	    "contentType": "html",
* 	    "content": "<html>\r\n<head>\r\n<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\r\n<meta content=\"text/html; charset=us-ascii\">\r\n<meta content=\"text/html; charset=utf-8\">\r\n</head>\r\n<body bgcolor=\"#FFFFFF\">\r\n<hr tabindex=\"-1\" style=\"display:inline-block; width:98%\"> ... </html>\r\n"
* 	  },
* 	  "sender": {
* 	    "emailAddress": {
* 	      "name": "Matt Smith",
* 	      "address": "chilkatsoft@outlook.com"
* 	    }
* 	  },
* 	  "from": {
* 	    "emailAddress": {
* 	      "name": "Matt Smith",
* 	      "address": "chilkatsoft@outlook.com"
* 	    }
* 	  },
* 	  "toRecipients": [
* 	    {
* 	      "emailAddress": {
* 	        "name": "Chilkat Software",
* 	        "address": "support@chilkatsoft.com"
* 	      }
* 	    }
* 	  ],
* 	  "ccRecipients": [
* 	  ],
* 	  "bccRecipients": [
* 	  ],
* 	  "replyTo": [
* 	  ]
* 	}
* 

* -----------------------------------------------------------------------
* A sample successful PATCH JSON response looks like this:

* 	{
* 	  "@odata.context": "https://graph.microsoft.com/v1.0/$metadata#users('admin%40chilkat.io')/messages/$entity",
* 	  "@odata.etag": "W/\"CQAAABYAAADn68XtMop0TpsYJGpfKXY9AADQAwSA\"",
* 	  "id": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5_vF7TKKdE6bGCRqXyl2PQAAAgEPAAAA5_vF7TKKdE6bGCRqXyl2PQAAAM-lQbMAAAA=",
* 	  "createdDateTime": "2017-06-01T15:18:14Z",
* 	  "lastModifiedDateTime": "2017-06-01T15:18:17Z",
* 	  "changeKey": "CQAAABYAAADn68XtMop0TpsYJGpfKXY9AADQAwSA",
* 	  "categories": [
* 	  ],
* 	  "receivedDateTime": "2017-06-01T15:18:15Z",
* 	  "sentDateTime": "2017-06-01T15:18:15Z",
* 	  "hasAttachments": false,
* 	  "internetMessageId": "<SN1PR20MB046138C4A26051200764FE38E6F60@SN1PR20MB0461.namprd20.prod.outlook.com>",
* 	  "subject": "RE: This email has the word Amazon in the subject..",
* 	  "bodyPreview": "This is my response.\r\n\r\n________________________________\r\nFrom: Chilkat Software <support@chilkatsoft.com>\r\nSent: Tuesday, May 30, 2017 11:40:01 PM\r\nTo: Chilkat Software\r\nSubject: This email has the word Amazon in the subject..\r\n\r\nThis email has the word ",
* 	  "importance": "normal",
* 	  "parentFolderId": "AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAuAAADsVyfxjDU406Ic4X7ill8xAEA5_vF7TKKdE6bGCRqXyl2PQAAAgEPAAAA",
* 	  "conversationId": "AQQkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgAQAE64PfPP1n1IhU4YasnNN0Q=",
* 	  "isDeliveryReceiptRequested": false,
* 	  "isReadReceiptRequested": false,
* 	  "isRead": true,
* 	  "isDraft": true,
* 	  "webLink": "https://outlook.live.com/owa/?ItemID=AQMkADAwATM0MDAAMS1iNTcwLWI2NTEtMDACLTAwCgBGAAADsVyfxjDU406Ic4X7ill8xAcA5%2BvF7TKKdE6bGCRqXyl2PQAAAgEPAAAA5%2BvF7TKKdE6bGCRqXyl2PQAAAM%2FlQbMAAAA%3D&exvsurl=1&viewmodel=ReadMessageItem",
* 	  "inferenceClassification": "focused",
* 	  "body": {
* 	    "contentType": "html",
* 	    "content": "<html>\r\n<head>\r\n<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\r\n<meta content=\"text/html; charset=us-ascii\">\r\n<meta content=\"text/html; charset=us-ascii\">\r\n<meta content=\"text/html; charset=utf-8\">\r\n</head>\r\n<body bgcolor=\"#FFFFFF\">\r\n<p>This is my response.</p>\r\n<hr tabindex=\"-1\" style=\"display:inline-block; width:98%\">\r\n<div id=\"divRplyFwdMsg\" dir=\"ltr\"><font face=\"Calibri, sans-serif\" color=\"#000000\" style=\"font-size:11pt\"><b>From:</b> Chilkat Software &lt;support@chilkatsoft.com&gt;<br>\r\n<b>Sent:</b> Tuesday, May 30, 2017 11:40:01 PM<br>\r\n<b>To:</b> Chilkat Software<br>\r\n<b>Subject:</b> This email has the word Amazon in the subject..</font>\r\n<div>&nbsp;</div>\r\n</div>\r\n<div><font face=\"Calibri\">This email has the word Amazon in the subject..</font><br>\r\n<div class=\"moz-signature\">-- <br>\r\nBest Regards,<br>\r\nMatt Smith<br>\r\nChilkat Software, Inc.<br>\r\n<p><a href=\"https://twitter.com/chilkatsoft\">Follow Chilkat on Twitter</a> </p>\r\n</div>\r\n</div>\r\n</body>\r\n</html>\r\n"
* 	  },
* 	  "sender": {
* 	    "emailAddress": {
* 	      "name": "Matt Smith",
* 	      "address": "chilkatsoft@outlook.com"
* 	    }
* 	  },
* 	  "from": {
* 	    "emailAddress": {
* 	      "name": "Matt Smith",
* 	      "address": "chilkatsoft@outlook.com"
* 	    }
* 	  },
* 	  "toRecipients": [
* 	    {
* 	      "emailAddress": {
* 	        "name": "Chilkat Software",
* 	        "address": "support@chilkatsoft.com"
* 	      }
* 	    }
* 	  ],
* 	  "ccRecipients": [
* 	  ],
* 	  "bccRecipients": [
* 	  ],
* 	  "replyTo": [
* 	  ]
* 	}

RELEASE loHttp
RELEASE loHtFolderMap
RELEASE loSbMap
RELEASE loJson
RELEASE loSbResponse
RELEASE loJsonRequestBody
RELEASE loJsonResponse
RELEASE loJsonPatch
RELEASE loSbHtml