![]() |
Chilkat HOME Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi DLL Go Java Node.js Objective-C PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VB.NET) Outlook Send EmailSee more Outlook ExamplesThis example sends a simple plain-text email. Other examples exist for:
Note: This example requires Chilkat v11.0.0 or greater.
Dim success As Boolean = False ' 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 success = jsonToken.LoadFile("qa_data/tokens/microsoftGraph.json") If (success = False) Then Debug.WriteLine(jsonToken.LastErrorText) Exit Sub 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 json.UpdateString("message.subject","Meet for lunch?") json.UpdateString("message.body.contentType","Text") json.UpdateString("message.body.content","The new cafeteria is open.") json.UpdateString("message.toRecipients[0].emailAddress.name","Chilkat Software") json.UpdateString("message.toRecipients[0].emailAddress.address","admin@chilkat.io") json.UpdateString("message.toRecipients[1].emailAddress.address","chilkat.support@gmail.com") json.UpdateString("message.ccRecipients[0].emailAddress.name","Chilkat Blog") json.UpdateString("message.ccRecipients[0].emailAddress.address","admin@cknotes.com") json.UpdateBool("saveToSentItems",True) ' Send the HTTP POST (i.e. send the email) Dim resp As New Chilkat.HttpResponse success = http.HttpJson("POST","https://graph.microsoft.com/v1.0/me/sendMail",json,"application/json",resp) If (success = False) Then Debug.WriteLine(http.LastErrorText) Exit Sub 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 json.Load(resp.BodyStr) json.EmitCompact = False Debug.WriteLine(json.Emit()) Debug.WriteLine("Failed, response status code = " & resp.StatusCode) Else Debug.WriteLine("Outlook Mail Sent.") End If |
© 2000-2025 Chilkat Software, Inc. All Rights Reserved.