Classic ASP Requires Chilkat v11.0.0+
Classic ASP
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 Classic ASP Downloads
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0
' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
set http = Server.CreateObject("Chilkat.Http")
' Use your previously obtained access token here:
http.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
set htFolderMap = Server.CreateObject("Chilkat.Hashtable")
set sbMap = Server.CreateObject("Chilkat.StringBuilder")
success = sbMap.LoadFile("qa_data/outlook/folderMap.xml","utf-8")
success = htFolderMap.AddFromXmlSb(sbMap)
' Get the ID for the "/Inbox" folder:
folderId = htFolderMap.LookupStr("/Inbox")
If (htFolderMap.LastMethodSuccess <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( "Folder ID not found") & "</pre>"
Response.End
End If
success = 1
set json = Server.CreateObject("Chilkat.JsonObject")
json.EmitCompact = 0
' Search for unread emails in this folder from support@chilkatsoft.com
success = http.SetUrlVar("folder_id",folderId)
success = http.SetUrlVar("select","id,subject")
success = http.SetUrlVar("filter","(isRead eq false) and (from/emailAddress/address eq 'support@chilkatsoft.com')")
set sbResponse = Server.CreateObject("Chilkat.StringBuilder")
success = http.QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",sbResponse)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
success = json.LoadSb(sbResponse)
' Show the results..
Response.Write "<pre>" & Server.HTMLEncode( json.Emit()) & "</pre>"
If (json.SizeOfArray("value") = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( "Empty result set.") & "</pre>"
Response.End
End If
' 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.
existingMsgId = json.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"
' }
set jsonRequestBody = Server.CreateObject("Chilkat.JsonObject")
success = jsonRequestBody.UpdateString("comment","This is a comment")
success = http.SetUrlVar("message_id",existingMsgId)
' Create the reply in the Drafts folder:
set resp = Server.CreateObject("Chilkat.HttpResponse")
success = http.HttpJson("POST","https://graph.microsoft.com/v1.0/me/messages/{$message_id}/createReply",jsonRequestBody,"application/json",resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
' A 201 response indicates success.
If (resp.StatusCode = 201) Then
Response.Write "<pre>" & Server.HTMLEncode( "Created reply draft.") & "</pre>"
success = 1
Else
Response.Write "<pre>" & Server.HTMLEncode( "Response status code = " & resp.StatusCode) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Failed to create reply draft.") & "</pre>"
success = 0
End If
' Show the response in both cases..
set jsonResponse = Server.CreateObject("Chilkat.JsonObject")
jsonResponse.EmitCompact = 0
success = jsonResponse.Load(resp.BodyStr)
Response.Write "<pre>" & Server.HTMLEncode( jsonResponse.Emit()) & "</pre>"
If (success = 0) Then
Response.End
End If
' ----------------------------------------------
' Get the message id of the newly created reply.
replyMsgId = jsonResponse.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"
' }
set jsonPatch = Server.CreateObject("Chilkat.JsonObject")
success = jsonPatch.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.
set sbHtml = Server.CreateObject("Chilkat.StringBuilder")
success = jsonResponse.StringOfSb("body.content",sbHtml)
' Insert the response HTML in the reply HTML body.
numReplaced = sbHtml.ReplaceBetween("<body bgcolor=""#FFFFFF"">","<hr ",vbCrLf,"<p>This is my response.</p>")
If (numReplaced <> 1) Then
Response.Write "<pre>" & Server.HTMLEncode( "Something is amiss!") & "</pre>"
Response.End
End If
success = jsonPatch.UpdateString("body.content",sbHtml.GetAsString())
' Add additional CC, BCC, or TO recipients like this:
numToRecipients = jsonResponse.SizeOfArray("toRecipients")
i = 0
' Copy existing TO recipients.
Do While i < numToRecipients
jsonPatch.I = i
jsonResponse.I = i
success = jsonPatch.UpdateString("toRecipients[i].emailAddress.name",jsonResponse.StringOf("toRecipients[i].emailAddress.name"))
success = jsonPatch.UpdateString("toRecipients[i].emailAddress.address",jsonResponse.StringOf("toRecipients[i].emailAddress.address"))
i = i + 1
Loop
' Add an additional TO recipient.
jsonPatch.I = numToRecipients
success = jsonPatch.UpdateString("toRecipients[i].emailAddress.name","Chilkat")
success = jsonPatch.UpdateString("toRecipients[i].emailAddress.address","admin@chilkat.io")
numCcRecipients = jsonResponse.SizeOfArray("ccRecipients")
i = 0
' Copy existing CC recipients.
Do While i < numCcRecipients
jsonPatch.I = i
jsonResponse.I = i
success = jsonPatch.UpdateString("ccRecipients[i].emailAddress.name",jsonResponse.StringOf("ccRecipients[i].emailAddress.name"))
success = jsonPatch.UpdateString("ccRecipients[i].emailAddress.address",jsonResponse.StringOf("ccRecipients[i].emailAddress.address"))
i = i + 1
Loop
' Add an additional CC recipient.
jsonPatch.I = numCcRecipients
success = jsonPatch.UpdateString("ccRecipients[i].emailAddress.name","Chilkat GMail")
success = jsonPatch.UpdateString("ccRecipients[i].emailAddress.address","chilkat.support@gmail.com")
jsonPatch.EmitCompact = 0
Response.Write "<pre>" & Server.HTMLEncode( jsonPatch.Emit()) & "</pre>"
success = http.SetUrlVar("message_id",replyMsgId)
success = http.HttpJson("PATCH","https://graph.microsoft.com/v1.0/me/messages/{$message_id}",jsonPatch,"application/json",resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
' A 200 response indicates success.
If (resp.StatusCode = 200) Then
Response.Write "<pre>" & Server.HTMLEncode( "Patched the reply draft.") & "</pre>"
success = 1
Else
Response.Write "<pre>" & Server.HTMLEncode( "Response status code = " & resp.StatusCode) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Failed to patch the reply draft.") & "</pre>"
success = 0
End If
' Show the response in both cases..
success = jsonResponse.Load(resp.BodyStr)
Response.Write "<pre>" & Server.HTMLEncode( jsonResponse.Emit()) & "</pre>"
If (success = 0) Then
Response.End
End If
' ---------------------------------------------------------------------
' 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
success = http.HttpStr("POST","https://graph.microsoft.com/v1.0/me/messages/{$message_id}/send","","","",resp)
If (success = 0) Then
Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>"
Response.End
End If
' A 202 response indicates success.
If (resp.StatusCode = 202) Then
Response.Write "<pre>" & Server.HTMLEncode( "Sent the email reply.") & "</pre>"
' If the status code was 202, there is no response body.
Else
Response.Write "<pre>" & Server.HTMLEncode( "Response status code = " & resp.StatusCode) & "</pre>"
Response.Write "<pre>" & Server.HTMLEncode( "Failed to send the email reply.") & "</pre>"
success = jsonResponse.Load(resp.BodyStr)
Response.Write "<pre>" & Server.HTMLEncode( jsonResponse.Emit()) & "</pre>"
End If
Response.Write "<pre>" & Server.HTMLEncode( "Finished.") & "</pre>"
' -----------------------------------------------------------------------
' 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": [
' ]
' }
%>
</body>
</html>