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 Email with AttachmentsThis example sends a plain-text email with attachments. 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.) // // Load the files to be attached. Dim attach1 As New Chilkat.BinData Dim success As Boolean success = attach1.LoadFile("qa_data/pdf/fishing.pdf") Dim attach2 As New Chilkat.BinData success = attach2.LoadFile("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 plain-text email: // // { // "message": { // "subject": "Sample Email with Attachments", // "body": { // "contentType": "Text", // "content": "This is the plain-text body..." // }, // "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": "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. Dim json As New Chilkat.JsonObject success = json.UpdateString("message.subject","Sample Email with Attachments") success = json.UpdateString("message.body.contentType","Text") success = json.UpdateString("message.body.content","This is the plain-text body...") 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","fishing.pdf") success = json.UpdateString("message.attachments[0].contentType","application/pdf") success = json.UpdateInt("message.attachments[0].size",attach1.NumBytes) success = json.UpdateBool("message.attachments[0].isInline",False) success = json.UpdateBd("message.attachments[0].contentBytes","base64",attach1) success = json.UpdateString("message.attachments[1].""@odata.type""","#microsoft.graph.fileAttachment") success = json.UpdateString("message.attachments[1].name","sample.docx") success = json.UpdateString("message.attachments[1].contentType","application/vnd.openxmlformats-officedocument.wordprocessingml.document") success = json.UpdateInt("message.attachments[1].size",attach2.NumBytes) success = json.UpdateBool("message.attachments[1].isInline",False) success = json.UpdateBd("message.attachments[1].contentBytes","base64",attach2) 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 Mail with Attachments Sent.") End If |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.