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 EmailSee more Outlook ExamplesThis example sends a simple plain-text email. Other examples exist for:
This example applies to: Exchange Online | Office 365 | Hotmail.com | Live.com | MSN.com | Outlook.com | Passport.com
// 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). Dim jsonToken As New Chilkat.JsonObject Dim success As Boolean success = jsonToken.LoadFile("qa_data/tokens/microsoftGraph.json") If (success = False) Then System.DebugLog(jsonToken.LastErrorText) Return End If http.AuthToken = jsonToken.StringOf("access_token") // To send email, 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.) // // The body of the POST request contains JSON that specifies the email subject, body, // recipients, etc. This example will build the following JSON email: // // { // "message": { // "subject": "Meet for lunch?", // "body": { // "contentType": "Text", // "content": "The new cafeteria is open." // }, // "toRecipients": [ // { // "emailAddress": { // "name": "Chilkat Software", // "address": "admin@chilkat.io" // } // }, // { // "emailAddress": { // "address": "chilkat.support@gmail.com" // } // } // ], // "ccRecipients": [ // { // "emailAddress": { // "name": "Chilkat Blog", // "address": "admin@cknotes.com" // } // } // ] // }, // "saveToSentItems": true // } // // Build the above JSON. Dim json As New Chilkat.JsonObject success = json.UpdateString("message.subject","Meet for lunch?") success = json.UpdateString("message.body.contentType","Text") success = json.UpdateString("message.body.content","The new cafeteria is open.") 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.UpdateBool("saveToSentItems",True) // Send the HTTP POST (i.e. send the email) Dim resp As Chilkat.HttpResponse resp = http.PostJson2("https://graph.microsoft.com/v1.0/me/sendMail","application/json",json.Emit()) 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 Sent.") End If |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.