Xbase++
Outlook Send HTML Email with Embedded Images

This example sends an HTML email with embedded images. Other examples exist for:
Sending plain-text email.
Sending email with attachments.
Sending HTML email with embedded images and attachments.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oHttp
LOCAL nBCrlf
LOCAL oSbHtmlBody
LOCAL oJpgStarfish
LOCAL oJpgHedgeHogs
LOCAL oJson
LOCAL oResp

nSuccess := 0

//  Important: This example requires Chilkat v9.5.0.68 or greater.

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

oHttp := CreateObject("Chilkat.Http")

//  Use your previously obtained access token here:
//  See the following examples for getting an access token:
//     Get Microsoft Graph OAuth2 Access Token (Azure AD v2.0 Endpoint).
//     Get Microsoft Graph OAuth2 Access Token (Azure AD Endpoint).
//     Refresh Access Token (Azure AD v2.0 Endpoint).
//     Refresh Access Token (Azure AD Endpoint).

oHttp:AuthToken := "MICROSOFT_GRAPH_ACCESS_TOKEN"

//  To send mail, we'll POST to the following endpoint:
//  
//  POST /users/{id | userPrincipalName}/sendMail
//  
//  (The special keyword "me" may be used in place of a principal name.)
//  

//  This example will send HTML email containing the following HTML body.
//  After the 

//  	<html>
//  	<head>
//  	<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
//  	<meta content="text/html; charset=utf-8">
//  	</head>
//  	<body bgcolor="#FFFFFF">
//  	<font face="Calibri">This is a test <b>HTML email with embedded images</b>.<br>
//  	<br>
//  	<img alt="" src="cid:starfish"><br>
//  	<img alt="" src="cid:hedgehogs"><br>
//  	</font>
//  	</body>
//  	</html>

//  Build the HTML body...
nBCrlf := 1
oSbHtmlBody := CreateObject("Chilkat.StringBuilder")
oSbHtmlBody:AppendLine("<html>", nBCrlf)
oSbHtmlBody:AppendLine("<head>", nBCrlf)
oSbHtmlBody:AppendLine('<meta http-equiv="Content-Type" content="text/html; charset=utf-8">', nBCrlf)
oSbHtmlBody:AppendLine('<meta content="text/html; charset=utf-8">', nBCrlf)
oSbHtmlBody:AppendLine("</head>", nBCrlf)
oSbHtmlBody:AppendLine('<body bgcolor="#FFFFFF">', nBCrlf)
oSbHtmlBody:AppendLine('<font face="Calibri">This is a test <b>HTML email with embedded images</b>.<br>', nBCrlf)
oSbHtmlBody:AppendLine("<br>", nBCrlf)
oSbHtmlBody:AppendLine('<img alt="" src="cid:starfish"><br>', nBCrlf)
oSbHtmlBody:AppendLine('<img alt="" src="cid:hedgehogs"><br>', nBCrlf)
oSbHtmlBody:AppendLine("</font>", nBCrlf)
oSbHtmlBody:AppendLine("</body>", nBCrlf)
oSbHtmlBody:AppendLine("</html>", nBCrlf)

//  Load the image files.
oJpgStarfish := CreateObject("Chilkat.BinData")
oJpgStarfish:LoadFile("qa_data/jpg/starfish.jpg")
oJpgHedgeHogs := CreateObject("Chilkat.BinData")
oJpgHedgeHogs:LoadFile("qa_data/jpg/hedgehogs.jpg")

//  The body of the POST request contains JSON that specifies the email subject, body,
//  recipients, etc.  This example will build the following JSON HTML email:
//  

//  	{
//  	  "message": {
//  	    "subject": "Sample HTML Email with Embedded Images",
//  	    "body": {
//  	      "contentType": "html",
//  	      "content": "The HTML body goes here..."
//  	    },
//  	    "toRecipients": [
//  	      {
//  	        "emailAddress": {
//  		  "name": "Chilkat Software",
//  	          "address": "admin@chilkat.io"
//  	        }
//  	      },
//  	      {
//  	        "emailAddress": {
//  	          "address": "chilkat.support@gmail.com"
//  	        }
//  	      }
//  	    ],
//  	    "ccRecipients": [
//  	      {
//  	        "emailAddress": {
//  		  "name": "Chilkat Blog",
//  		  "address": "admin@cknotes.com"
//  	        }
//  	      }
//  	    ],
//  	    "attachments": [
//  	       {
//  	         "@odata.type": "#microsoft.graph.fileAttachment",
//  	         "name": "starfish.jpg",
//  	         "contentType": "image/jpeg",
//  	         "size": 6497,
//  	         "isInline": true,
//  	         "contentId": "starfish",
//  	         "contentLocation": null,
//  	         "contentBytes": "base64_data_here"
//  	       },
//  	       {
//  	         "@odata.type": "#microsoft.graph.fileAttachment",
//  	         "name": "hedgehogs.jpg",
//  	         "contentType": "image/jpeg",
//  	         "size": 48845,
//  	         "isInline": true,
//  	         "contentId": "hedgehogs",
//  	         "contentLocation": null,
//  	         "contentBytes": "base64_data_here"
//  	       }
//  	    ]
//  	  },
//  	  "saveToSentItems": true
//  	}
//  
//  Build the above JSON.
oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("message.subject", "Sample HTML Email with Embedded Images")
oJson:UpdateString("message.body.contentType", "html")
oJson:UpdateString("message.body.content", oSbHtmlBody:GetAsString())

oJson:UpdateString("message.toRecipients[0].emailAddress.name", "Chilkat Software")
oJson:UpdateString("message.toRecipients[0].emailAddress.address", "admin@chilkat.io")
oJson:UpdateString("message.toRecipients[1].emailAddress.address", "chilkat.support@gmail.com")
oJson:UpdateString("message.ccRecipients[0].emailAddress.name", "Chilkat Blog")
oJson:UpdateString("message.ccRecipients[0].emailAddress.address", "admin@cknotes.com")

oJson:UpdateString('message.attachments[0]."@odata.type"', "#microsoft.graph.fileAttachment")
oJson:UpdateString("message.attachments[0].name", "starfish.jpg")
oJson:UpdateString("message.attachments[0].contentType", "image/jpeg")
oJson:UpdateInt("message.attachments[0].size", oJpgStarfish:NumBytes)
oJson:UpdateBool("message.attachments[0].isInline", 1)
//  This contentId must match the "cid:" in the HTML
oJson:UpdateString("message.attachments[0].contentId", "starfish")
oJson:UpdateNull("message.attachments[0].contentLocation")
oJson:UpdateBd("message.attachments[0].contentBytes", "base64", oJpgStarfish)

oJson:UpdateString('message.attachments[1]."@odata.type"', "#microsoft.graph.fileAttachment")
oJson:UpdateString("message.attachments[1].name", "hedgehogs.jpg")
oJson:UpdateString("message.attachments[1].contentType", "image/jpeg")
oJson:UpdateInt("message.attachments[1].size", oJpgHedgeHogs:NumBytes)
oJson:UpdateBool("message.attachments[1].isInline", 1)
//  This contentId must match the "cid:" in the HTML
oJson:UpdateString("message.attachments[1].contentId", "hedgehogs")
oJson:UpdateNull("message.attachments[1].contentLocation")
oJson:UpdateBd("message.attachments[1].contentBytes", "base64", oJpgHedgeHogs)

oJson:UpdateBool("saveToSentItems", 1)

//  -------------------------------------------------------------
//  Important: This example requires Chilkat v9.5.0.68 or greater.
//  -------------------------------------------------------------

//  Send the HTTP POST (i.e. send the HTML email)
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://graph.microsoft.com/v1.0/me/sendMail", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oSbHtmlBody:destroy()
    oJpgStarfish:destroy()
    oJpgHedgeHogs:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
ENDIF

//  The send succeeded if the response status code = 202.
//  In the success case, there is no response body.  (We just get the response code to know that it succeeded.)
IF (oResp:StatusCode != 202)
    oJson:Load(oResp:BodyStr)
    oJson:EmitCompact := 0
    ? oJson:Emit()
    ? "Failed, response status code = " + Str(oResp:StatusCode)
ELSE
    ? "Outlook HTML Mail Sent."
ENDIF

oHttp:destroy()
oSbHtmlBody:destroy()
oJpgStarfish:destroy()
oJpgHedgeHogs:destroy()
oJson:destroy()
oResp:destroy()