AutoIt
AutoIt
Outlook -- Create Reply Email, Update, and Send
See more Outlook Examples
Creates a reply email in the Drafts folder, updates the reply with information, and then sends the reply.Chilkat AutoIt Downloads
Local $bSuccess = False
; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
$oHttp = ObjCreate("Chilkat.Http")
; Use your previously obtained access token here:
$oHttp.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
$oHtFolderMap = ObjCreate("Chilkat.Hashtable")
$oSbMap = ObjCreate("Chilkat.StringBuilder")
$oSbMap.LoadFile("qa_data/outlook/folderMap.xml","utf-8")
$oHtFolderMap.AddFromXmlSb($oSbMap)
; Get the ID for the "/Inbox" folder:
Local $sFolderId = $oHtFolderMap.LookupStr("/Inbox")
If ($oHtFolderMap.LastMethodSuccess <> True) Then
ConsoleWrite("Folder ID not found" & @CRLF)
Exit
EndIf
$bSuccess = True
$oJson = ObjCreate("Chilkat.JsonObject")
$oJson.EmitCompact = False
; Search for unread emails in this folder from support@chilkatsoft.com
$oHttp.SetUrlVar("folder_id",$sFolderId)
$oHttp.SetUrlVar("select","id,subject")
$oHttp.SetUrlVar("filter","(isRead eq false) and (from/emailAddress/address eq 'support@chilkatsoft.com')")
$oSbResponse = ObjCreate("Chilkat.StringBuilder")
$bSuccess = $oHttp.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",$oSbResponse)
If ($bSuccess = False) Then
ConsoleWrite($oHttp.LastErrorText & @CRLF)
Exit
EndIf
$oJson.LoadSb($oSbResponse)
; Show the results..
ConsoleWrite($oJson.Emit() & @CRLF)
If ($oJson.SizeOfArray("value") = 0) Then
ConsoleWrite("Empty result set." & @CRLF)
Exit
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.
Local $sExistingMsgId = $oJson.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"
; }
$oJsonRequestBody = ObjCreate("Chilkat.JsonObject")
$oJsonRequestBody.UpdateString("comment","This is a comment")
$oHttp.SetUrlVar("message_id",$sExistingMsgId)
; Create the reply in the Drafts folder:
$oResp = ObjCreate("Chilkat.HttpResponse")
$bSuccess = $oHttp.HttpJson("POST","https://graph.microsoft.com/v1.0/me/messages/{$message_id}/createReply",$oJsonRequestBody,"application/json",$oResp)
If ($bSuccess = False) Then
ConsoleWrite($oHttp.LastErrorText & @CRLF)
Exit
EndIf
; A 201 response indicates success.
If ($oResp.StatusCode = 201) Then
ConsoleWrite("Created reply draft." & @CRLF)
$bSuccess = True
Else
ConsoleWrite("Response status code = " & $oResp.StatusCode & @CRLF)
ConsoleWrite("Failed to create reply draft." & @CRLF)
$bSuccess = False
EndIf
; Show the response in both cases..
$oJsonResponse = ObjCreate("Chilkat.JsonObject")
$oJsonResponse.EmitCompact = False
$oJsonResponse.Load($oResp.BodyStr)
ConsoleWrite($oJsonResponse.Emit() & @CRLF)
If ($bSuccess = False) Then
Exit
EndIf
; ----------------------------------------------
; Get the message id of the newly created reply.
Local $sReplyMsgId = $oJsonResponse.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"
; }
$oJsonPatch = ObjCreate("Chilkat.JsonObject")
$oJsonPatch.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.
$oSbHtml = ObjCreate("Chilkat.StringBuilder")
$oJsonResponse.StringOfSb("body.content",$oSbHtml)
; Insert the response HTML in the reply HTML body.
Local $iNumReplaced = $oSbHtml.ReplaceBetween("<body bgcolor=""#FFFFFF"">","<hr ",@CRLF,"<p>This is my response.</p>")
If ($iNumReplaced <> 1) Then
ConsoleWrite("Something is amiss!" & @CRLF)
Exit
EndIf
$oJsonPatch.UpdateString("body.content",$oSbHtml.GetAsString())
; Add additional CC, BCC, or TO recipients like this:
Local $iNumToRecipients = $oJsonResponse.SizeOfArray("toRecipients")
Local $i = 0
; Copy existing TO recipients.
While $i < $iNumToRecipients
$oJsonPatch.I = $i
$oJsonResponse.I = $i
$oJsonPatch.UpdateString("toRecipients[i].emailAddress.name",$oJsonResponse.StringOf("toRecipients[i].emailAddress.name"))
$oJsonPatch.UpdateString("toRecipients[i].emailAddress.address",$oJsonResponse.StringOf("toRecipients[i].emailAddress.address"))
$i = $i + 1
Wend
; Add an additional TO recipient.
$oJsonPatch.I = $iNumToRecipients
$oJsonPatch.UpdateString("toRecipients[i].emailAddress.name","Chilkat")
$oJsonPatch.UpdateString("toRecipients[i].emailAddress.address","admin@chilkat.io")
Local $iNumCcRecipients = $oJsonResponse.SizeOfArray("ccRecipients")
$i = 0
; Copy existing CC recipients.
While $i < $iNumCcRecipients
$oJsonPatch.I = $i
$oJsonResponse.I = $i
$oJsonPatch.UpdateString("ccRecipients[i].emailAddress.name",$oJsonResponse.StringOf("ccRecipients[i].emailAddress.name"))
$oJsonPatch.UpdateString("ccRecipients[i].emailAddress.address",$oJsonResponse.StringOf("ccRecipients[i].emailAddress.address"))
$i = $i + 1
Wend
; Add an additional CC recipient.
$oJsonPatch.I = $iNumCcRecipients
$oJsonPatch.UpdateString("ccRecipients[i].emailAddress.name","Chilkat GMail")
$oJsonPatch.UpdateString("ccRecipients[i].emailAddress.address","chilkat.support@gmail.com")
$oJsonPatch.EmitCompact = False
ConsoleWrite($oJsonPatch.Emit() & @CRLF)
$oHttp.SetUrlVar("message_id",$sReplyMsgId)
$bSuccess = $oHttp.HttpJson("PATCH","https://graph.microsoft.com/v1.0/me/messages/{$message_id}",$oJsonPatch,"application/json",$oResp)
If ($bSuccess = False) Then
ConsoleWrite($oHttp.LastErrorText & @CRLF)
Exit
EndIf
; A 200 response indicates success.
If ($oResp.StatusCode = 200) Then
ConsoleWrite("Patched the reply draft." & @CRLF)
$bSuccess = True
Else
ConsoleWrite("Response status code = " & $oResp.StatusCode & @CRLF)
ConsoleWrite("Failed to patch the reply draft." & @CRLF)
$bSuccess = False
EndIf
; Show the response in both cases..
$oJsonResponse.Load($oResp.BodyStr)
ConsoleWrite($oJsonResponse.Emit() & @CRLF)
If ($bSuccess = False) Then
Exit
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
$bSuccess = $oHttp.HttpStr("POST","https://graph.microsoft.com/v1.0/me/messages/{$message_id}/send","","","",$oResp)
If ($bSuccess = False) Then
ConsoleWrite($oHttp.LastErrorText & @CRLF)
Exit
EndIf
; A 202 response indicates success.
If ($oResp.StatusCode = 202) Then
ConsoleWrite("Sent the email reply." & @CRLF)
; If the status code was 202, there is no response body.
Else
ConsoleWrite("Response status code = " & $oResp.StatusCode & @CRLF)
ConsoleWrite("Failed to send the email reply." & @CRLF)
$oJsonResponse.Load($oResp.BodyStr)
ConsoleWrite($oJsonResponse.Emit() & @CRLF)
EndIf
ConsoleWrite("Finished." & @CRLF)
; -----------------------------------------------------------------------
; 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 <support@chilkatsoft.com><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> </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": [
; ]
; }