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
(Xojo Plugin) Outlook Send HTML Email with Embedded ImagesThis example sends an HTML email with embedded images. Other examples exist for:
This example applies to: Exchange Online | Office 365 | Hotmail.com | Live.com | MSN.com | Outlook.com | Passport.com
// 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. Dim http As New 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). http.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... Dim bCrlf As Boolean bCrlf = True Dim sbHtmlBody As New Chilkat.StringBuilder Dim success As Boolean success = sbHtmlBody.AppendLine("<html>",bCrlf) success = sbHtmlBody.AppendLine("<head>",bCrlf) success = sbHtmlBody.AppendLine("<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"">",bCrlf) success = sbHtmlBody.AppendLine("<meta content=""text/html; charset=utf-8"">",bCrlf) success = sbHtmlBody.AppendLine("</head>",bCrlf) success = sbHtmlBody.AppendLine("<body bgcolor=""#FFFFFF"">",bCrlf) success = sbHtmlBody.AppendLine("<font face=""Calibri"">This is a test <b>HTML email with embedded images</b>.<br>",bCrlf) success = sbHtmlBody.AppendLine("<br>",bCrlf) success = sbHtmlBody.AppendLine("<img alt="""" src=""cid:starfish""><br>",bCrlf) success = sbHtmlBody.AppendLine("<img alt="""" src=""cid:hedgehogs""><br>",bCrlf) success = sbHtmlBody.AppendLine("</font>",bCrlf) success = sbHtmlBody.AppendLine("</body>",bCrlf) success = sbHtmlBody.AppendLine("</html>",bCrlf) // Load the image files. Dim jpgStarfish As New Chilkat.BinData success = jpgStarfish.LoadFile("qa_data/jpg/starfish.jpg") Dim jpgHedgeHogs As New Chilkat.BinData success = jpgHedgeHogs.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. Dim json As New Chilkat.JsonObject success = json.UpdateString("message.subject","Sample HTML Email with Embedded Images") success = json.UpdateString("message.body.contentType","html") success = json.UpdateString("message.body.content",sbHtmlBody.GetAsString()) success = json.UpdateString("message.toRecipients[0].emailAddress.name","Chilkat Software") success = json.UpdateString("message.toRecipients[0].emailAddress.address","admin@chilkat.io") success = json.UpdateString("message.toRecipients[1].emailAddress.address","chilkat.support@gmail.com") success = json.UpdateString("message.ccRecipients[0].emailAddress.name","Chilkat Blog") success = json.UpdateString("message.ccRecipients[0].emailAddress.address","admin@cknotes.com") success = json.UpdateString("message.attachments[0].""@odata.type""","#microsoft.graph.fileAttachment") success = json.UpdateString("message.attachments[0].name","starfish.jpg") success = json.UpdateString("message.attachments[0].contentType","image/jpeg") success = json.UpdateInt("message.attachments[0].size",jpgStarfish.NumBytes) success = json.UpdateBool("message.attachments[0].isInline",True) // This contentId must match the "cid:" in the HTML success = json.UpdateString("message.attachments[0].contentId","starfish") success = json.UpdateNull("message.attachments[0].contentLocation") success = json.UpdateBd("message.attachments[0].contentBytes","base64",jpgStarfish) success = json.UpdateString("message.attachments[1].""@odata.type""","#microsoft.graph.fileAttachment") success = json.UpdateString("message.attachments[1].name","hedgehogs.jpg") success = json.UpdateString("message.attachments[1].contentType","image/jpeg") success = json.UpdateInt("message.attachments[1].size",jpgHedgeHogs.NumBytes) success = json.UpdateBool("message.attachments[1].isInline",True) // This contentId must match the "cid:" in the HTML success = json.UpdateString("message.attachments[1].contentId","hedgehogs") success = json.UpdateNull("message.attachments[1].contentLocation") success = json.UpdateBd("message.attachments[1].contentBytes","base64",jpgHedgeHogs) success = json.UpdateBool("saveToSentItems",True) // ------------------------------------------------------------- // Important: This example requires Chilkat v9.5.0.68 or greater. // ------------------------------------------------------------- // Send the HTTP POST (i.e. send the HTML email) Dim resp As Chilkat.HttpResponse resp = http.PostJson3("https://graph.microsoft.com/v1.0/me/sendMail","application/json",json) If (http.LastMethodSuccess <> True) Then System.DebugLog(http.LastErrorText) Return End If // 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 (resp.StatusCode <> 202) Then success = json.Load(resp.BodyStr) json.EmitCompact = False System.DebugLog(json.Emit()) System.DebugLog("Failed, response status code = " + Str(resp.StatusCode)) Else System.DebugLog("Outlook HTML Mail Sent.") End If |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.