Sample code for 30+ languages & platforms
Perl Requires Chilkat v11.0.0+

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 Perl Downloads

Download Chilkat for Perl
Perl 
use chilkat();

$success = 0;

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

$http = chilkat::CkHttp->new();

#  Use your previously obtained access token here:
$http->put_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 
$htFolderMap = chilkat::CkHashtable->new();
$sbMap = chilkat::CkStringBuilder->new();
$sbMap->LoadFile("qa_data/outlook/folderMap.xml","utf-8");
$htFolderMap->AddFromXmlSb($sbMap);

#  Get the ID for the "/Inbox" folder:
$folderId = $htFolderMap->lookupStr("/Inbox");
if ($htFolderMap->get_LastMethodSuccess() != 1) {
    print "Folder ID not found" . "\r\n";
    exit;
}

$success = 1;
$json = chilkat::CkJsonObject->new();
$json->put_EmitCompact(0);

#  Search for unread emails in this folder from support@chilkatsoft.com 
$http->SetUrlVar("folder_id",$folderId);
$http->SetUrlVar("select","id,subject");
$http->SetUrlVar("filter",'(isRead eq false) and (from/emailAddress/address eq 'support@chilkatsoft.com')');

$sbResponse = chilkat::CkStringBuilder->new();
$success = $http->QuickGetSb("https://graph.microsoft.com/v1.0/me/mailFolders/{$folder_id}/messages?$filter={$filter}&$select={$select}",$sbResponse);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

$json->LoadSb($sbResponse);
#  Show the results..
print $json->emit() . "\r\n";

if ($json->SizeOfArray("value") == 0) {
    print "Empty result set." . "\r\n";
    exit;
}

#  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"
#  	}

$jsonRequestBody = chilkat::CkJsonObject->new();
$jsonRequestBody->UpdateString("comment","This is a comment");

$http->SetUrlVar("message_id",$existingMsgId);

#  Create the reply in the Drafts folder:
$resp = chilkat::CkHttpResponse->new();
$success = $http->HttpJson("POST","https://graph.microsoft.com/v1.0/me/messages/{$message_id}/createReply",$jsonRequestBody,"application/json",$resp);
if ($success == 0) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  A 201 response indicates success.
if ($resp->get_StatusCode() == 201) {
    print "Created reply draft." . "\r\n";
    $success = 1;
}
else {
    print "Response status code = " . $resp->get_StatusCode() . "\r\n";
    print "Failed to create reply draft." . "\r\n";
    $success = 0;
}

#  Show the response in both cases..
$jsonResponse = chilkat::CkJsonObject->new();
$jsonResponse->put_EmitCompact(0);
$jsonResponse->Load($resp->bodyStr());
print $jsonResponse->emit() . "\r\n";
if ($success == 0) {
    exit;
}

#  ----------------------------------------------
#  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"
#  	}

$jsonPatch = chilkat::CkJsonObject->new();
$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.
$sbHtml = chilkat::CkStringBuilder->new();
$jsonResponse->StringOfSb("body.content",$sbHtml);
#  Insert the response HTML in the reply HTML body.
$numReplaced = $sbHtml->ReplaceBetween("<body bgcolor=\"#FFFFFF\">","<hr ","\r\n","<p>This is my response.</p>");
if ($numReplaced != 1) {
    print "Something is amiss!" . "\r\n";
    exit;
}

$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.
while ($i < $numToRecipients) {
    $jsonPatch->put_I($i);
    $jsonResponse->put_I($i);
    $jsonPatch->UpdateString("toRecipients[i].emailAddress.name",$jsonResponse->stringOf("toRecipients[i].emailAddress.name"));
    $jsonPatch->UpdateString("toRecipients[i].emailAddress.address",$jsonResponse->stringOf("toRecipients[i].emailAddress.address"));
    $i = $i + 1;
}

#  Add an additional TO recipient.
$jsonPatch->put_I($numToRecipients);
$jsonPatch->UpdateString("toRecipients[i].emailAddress.name","Chilkat");
$jsonPatch->UpdateString("toRecipients[i].emailAddress.address",'admin@chilkat.io');

$numCcRecipients = $jsonResponse->SizeOfArray("ccRecipients");
$i = 0;
#  Copy existing CC recipients.
while ($i < $numCcRecipients) {
    $jsonPatch->put_I($i);
    $jsonResponse->put_I($i);
    $jsonPatch->UpdateString("ccRecipients[i].emailAddress.name",$jsonResponse->stringOf("ccRecipients[i].emailAddress.name"));
    $jsonPatch->UpdateString("ccRecipients[i].emailAddress.address",$jsonResponse->stringOf("ccRecipients[i].emailAddress.address"));
    $i = $i + 1;
}

#  Add an additional CC recipient.
$jsonPatch->put_I($numCcRecipients);
$jsonPatch->UpdateString("ccRecipients[i].emailAddress.name","Chilkat GMail");
$jsonPatch->UpdateString("ccRecipients[i].emailAddress.address",'chilkat.support@gmail.com');

$jsonPatch->put_EmitCompact(0);
print $jsonPatch->emit() . "\r\n";

$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) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  A 200 response indicates success.
if ($resp->get_StatusCode() == 200) {
    print "Patched the reply draft." . "\r\n";
    $success = 1;
}
else {
    print "Response status code = " . $resp->get_StatusCode() . "\r\n";
    print "Failed to patch the reply draft." . "\r\n";
    $success = 0;
}

#  Show the response in both cases..
$jsonResponse->Load($resp->bodyStr());
print $jsonResponse->emit() . "\r\n";
if ($success == 0) {
    exit;
}

#  ---------------------------------------------------------------------
#  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) {
    print $http->lastErrorText() . "\r\n";
    exit;
}

#  A 202 response indicates success.
if ($resp->get_StatusCode() == 202) {
    print "Sent the email reply." . "\r\n";
    #  If the status code was 202, there is no response body.
}
else {
    print "Response status code = " . $resp->get_StatusCode() . "\r\n";
    print "Failed to send the email reply." . "\r\n";
    $jsonResponse->Load($resp->bodyStr());
    print $jsonResponse->emit() . "\r\n";
}

print "Finished." . "\r\n";

#  -----------------------------------------------------------------------
#  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": [
#  	  ]
#  	}