|
Chilkat • HOME • .NET Core C# • Android™ • AutoIt • C • C# • C++ • Chilkat2-Python • CkPython • Classic ASP • DataFlex • Delphi ActiveX • Delphi DLL • Go • Java • Lianja • Mono C# • Node.js • Objective-C • PHP ActiveX • PHP Extension • Perl • PowerBuilder • PowerShell • PureBasic • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • VB.NET • VBScript • Visual Basic 6.0 • Visual FoxPro • Xojo Plugin
(PureBasic) Outlook Send HTML Email with Embedded Images and AttachmentsThis example sends an HTML email with both embedded images and attachments. Other examples exist for:
This example applies to: Exchange Online | Office 365 | Hotmail.com | Live.com | MSN.com | Outlook.com | Passport.com
IncludeFile "CkBinData.pb" IncludeFile "CkHttp.pb" IncludeFile "CkStringBuilder.pb" IncludeFile "CkJsonObject.pb" IncludeFile "CkHttpResponse.pb" Procedure ChilkatExample() ; 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 embedded 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") ; Load files that are to be attached (not inline images) attach1.i = CkBinData::ckCreate() If attach1.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkBinData::ckLoadFile(attach1,"qa_data/pdf/fishing.pdf") attach2.i = CkBinData::ckCreate() If attach2.i = 0 Debug "Failed to create object." ProcedureReturn EndIf CkBinData::ckLoadFile(attach2,"qa_data/msword/sample.docx") ; 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 with ; two embedded images and two attachments. ; ; The only difference between an embedded inline image and an attachment is that the ; inline image must have a cid that corresponds to the "cid:" found in the "src" attribute ; of an IMG tag within the HTML body of the email. (The inline image is also marked as "isInline", ; whereas the attachments are not, but I don't know if this actually makes a difference..) ; ; { ; "message": { ; "subject": "Sample HTML Email with Embedded Images and Attachments", ; "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" ; }, ; { ; "@odata.type": "#microsoft.graph.fileAttachment", ; "name": "fishing.pdf", ; "contentType": "application/pdf", ; "size": <theActualSize>, ; "isInline": false, ; "contentBytes": "base64_data_here" ; }, ; { ; "@odata.type": "#microsoft.graph.fileAttachment", ; "name": "sample.docx", ; "contentType": "application/vnd.openxmlformats-officedocument.wordprocessingml.document", ; "size": <theActualSize>, ; "isInline": false, ; "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 and Attachments") 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::ckUpdateString(json,"message.attachments[2]." + Chr(34) + "@odata.type" + Chr(34),"#microsoft.graph.fileAttachment") CkJsonObject::ckUpdateString(json,"message.attachments[2].name","fishing.pdf") CkJsonObject::ckUpdateString(json,"message.attachments[2].contentType","application/pdf") CkJsonObject::ckUpdateInt(json,"message.attachments[2].size",CkBinData::ckNumBytes(attach1)) CkJsonObject::ckUpdateBool(json,"message.attachments[2].isInline",0) CkJsonObject::ckUpdateBd(json,"message.attachments[2].contentBytes","base64",attach1) CkJsonObject::ckUpdateString(json,"message.attachments[3]." + Chr(34) + "@odata.type" + Chr(34),"#microsoft.graph.fileAttachment") CkJsonObject::ckUpdateString(json,"message.attachments[3].name","sample.docx") CkJsonObject::ckUpdateString(json,"message.attachments[3].contentType","application/vnd.openxmlformats-officedocument.wordprocessingml.document") CkJsonObject::ckUpdateInt(json,"message.attachments[3].size",CkBinData::ckNumBytes(attach2)) CkJsonObject::ckUpdateBool(json,"message.attachments[3].isInline",0) CkJsonObject::ckUpdateBd(json,"message.attachments[3].contentBytes","base64",attach2) 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 = CkHttp::ckPostJson3(http,"https://graph.microsoft.com/v1.0/me/sendMail","application/json",json) If CkHttp::ckLastMethodSuccess(http) <> 1 Debug CkHttp::ckLastErrorText(http) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbHtmlBody) CkBinData::ckDispose(jpgStarfish) CkBinData::ckDispose(jpgHedgeHogs) CkBinData::ckDispose(attach1) CkBinData::ckDispose(attach2) CkJsonObject::ckDispose(json) 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 CkHttpResponse::ckDispose(resp) CkHttp::ckDispose(http) CkStringBuilder::ckDispose(sbHtmlBody) CkBinData::ckDispose(jpgStarfish) CkBinData::ckDispose(jpgHedgeHogs) CkBinData::ckDispose(attach1) CkBinData::ckDispose(attach2) CkJsonObject::ckDispose(json) ProcedureReturn EndProcedure |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.