PureBasic
PureBasic
Outlook Send HTML Email with Embedded Images
See more Outlook Examples
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.
This example applies to: Exchange Online | Office 365 | Hotmail.com | Live.com | MSN.com | Outlook.com | Passport.com
Chilkat PureBasic Downloads
IncludeFile "CkBinData.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkHttpResponse.pb"
Procedure ChilkatExample()
success.i = 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.
http.i = CkHttp::ckCreate()
If http.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
; 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).
CkHttp::setCkAuthToken(http, "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...
bCrlf.i = 1
sbHtmlBody.i = CkStringBuilder::ckCreate()
If sbHtmlBody.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkStringBuilder::ckAppendLine(sbHtmlBody,"<html>",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"<head>",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"<meta http-equiv=" + Chr(34) + "Content-Type" + Chr(34) + " content=" + Chr(34) + "text/html; charset=utf-8" + Chr(34) + ">",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"<meta content=" + Chr(34) + "text/html; charset=utf-8" + Chr(34) + ">",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"</head>",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"<body bgcolor=" + Chr(34) + "#FFFFFF" + Chr(34) + ">",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"<font face=" + Chr(34) + "Calibri" + Chr(34) + ">This is a test <b>HTML email with embedded images</b>.<br>",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"<br>",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"<img alt=" + Chr(34) + Chr(34) + " src=" + Chr(34) + "cid:starfish" + Chr(34) + "><br>",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"<img alt=" + Chr(34) + Chr(34) + " src=" + Chr(34) + "cid:hedgehogs" + Chr(34) + "><br>",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"</font>",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"</body>",bCrlf)
CkStringBuilder::ckAppendLine(sbHtmlBody,"</html>",bCrlf)
; Load the image files.
jpgStarfish.i = CkBinData::ckCreate()
If jpgStarfish.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkBinData::ckLoadFile(jpgStarfish,"qa_data/jpg/starfish.jpg")
jpgHedgeHogs.i = CkBinData::ckCreate()
If jpgHedgeHogs.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkBinData::ckLoadFile(jpgHedgeHogs,"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.
json.i = CkJsonObject::ckCreate()
If json.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckUpdateString(json,"message.subject","Sample HTML Email with Embedded Images")
CkJsonObject::ckUpdateString(json,"message.body.contentType","html")
CkJsonObject::ckUpdateString(json,"message.body.content",CkStringBuilder::ckGetAsString(sbHtmlBody))
CkJsonObject::ckUpdateString(json,"message.toRecipients[0].emailAddress.name","Chilkat Software")
CkJsonObject::ckUpdateString(json,"message.toRecipients[0].emailAddress.address","admin@chilkat.io")
CkJsonObject::ckUpdateString(json,"message.toRecipients[1].emailAddress.address","chilkat.support@gmail.com")
CkJsonObject::ckUpdateString(json,"message.ccRecipients[0].emailAddress.name","Chilkat Blog")
CkJsonObject::ckUpdateString(json,"message.ccRecipients[0].emailAddress.address","admin@cknotes.com")
CkJsonObject::ckUpdateString(json,"message.attachments[0]." + Chr(34) + "@odata.type" + Chr(34),"#microsoft.graph.fileAttachment")
CkJsonObject::ckUpdateString(json,"message.attachments[0].name","starfish.jpg")
CkJsonObject::ckUpdateString(json,"message.attachments[0].contentType","image/jpeg")
CkJsonObject::ckUpdateInt(json,"message.attachments[0].size",CkBinData::ckNumBytes(jpgStarfish))
CkJsonObject::ckUpdateBool(json,"message.attachments[0].isInline",1)
; This contentId must match the "cid:" in the HTML
CkJsonObject::ckUpdateString(json,"message.attachments[0].contentId","starfish")
CkJsonObject::ckUpdateNull(json,"message.attachments[0].contentLocation")
CkJsonObject::ckUpdateBd(json,"message.attachments[0].contentBytes","base64",jpgStarfish)
CkJsonObject::ckUpdateString(json,"message.attachments[1]." + Chr(34) + "@odata.type" + Chr(34),"#microsoft.graph.fileAttachment")
CkJsonObject::ckUpdateString(json,"message.attachments[1].name","hedgehogs.jpg")
CkJsonObject::ckUpdateString(json,"message.attachments[1].contentType","image/jpeg")
CkJsonObject::ckUpdateInt(json,"message.attachments[1].size",CkBinData::ckNumBytes(jpgHedgeHogs))
CkJsonObject::ckUpdateBool(json,"message.attachments[1].isInline",1)
; This contentId must match the "cid:" in the HTML
CkJsonObject::ckUpdateString(json,"message.attachments[1].contentId","hedgehogs")
CkJsonObject::ckUpdateNull(json,"message.attachments[1].contentLocation")
CkJsonObject::ckUpdateBd(json,"message.attachments[1].contentBytes","base64",jpgHedgeHogs)
CkJsonObject::ckUpdateBool(json,"saveToSentItems",1)
; -------------------------------------------------------------
; Important: This example requires Chilkat v9.5.0.68 or greater.
; -------------------------------------------------------------
; Send the HTTP POST (i.e. send the HTML email)
resp.i = CkHttpResponse::ckCreate()
If resp.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success = CkHttp::ckHttpJson(http,"POST","https://graph.microsoft.com/v1.0/me/sendMail",json,"application/json",resp)
If success = 0
Debug CkHttp::ckLastErrorText(http)
CkHttp::ckDispose(http)
CkStringBuilder::ckDispose(sbHtmlBody)
CkBinData::ckDispose(jpgStarfish)
CkBinData::ckDispose(jpgHedgeHogs)
CkJsonObject::ckDispose(json)
CkHttpResponse::ckDispose(resp)
ProcedureReturn
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 CkHttpResponse::ckStatusCode(resp) <> 202
CkJsonObject::ckLoad(json,CkHttpResponse::ckBodyStr(resp))
CkJsonObject::setCkEmitCompact(json, 0)
Debug CkJsonObject::ckEmit(json)
Debug "Failed, response status code = " + Str(CkHttpResponse::ckStatusCode(resp))
Else
Debug "Outlook HTML Mail Sent."
EndIf
CkHttp::ckDispose(http)
CkStringBuilder::ckDispose(sbHtmlBody)
CkBinData::ckDispose(jpgStarfish)
CkBinData::ckDispose(jpgHedgeHogs)
CkJsonObject::ckDispose(json)
CkHttpResponse::ckDispose(resp)
ProcedureReturn
EndProcedure