Xbase++ Requires Chilkat v11.0.0+

Outlook Send Email

See more Outlook Examples

This example sends a simple plain-text email. Other examples exist for:

• Sending HTML email.
• Sending HTML email with embedded images.
• Sending email with attachments.
• Sending HTML email with embedded images and attachments.

Xbase++

LOCAL nSuccess
LOCAL oHttp
LOCAL oJsonToken
LOCAL oJson
LOCAL oResp

nSuccess := 0

//  This example requires the Chilkat API to have been previously unlocked.
//  See Global Unlock Sample for sample code.

oHttp := CreateObject("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).

oJsonToken := CreateObject("Chilkat.JsonObject")
nSuccess := oJsonToken:LoadFile("qa_data/tokens/microsoftGraph.json")
IF (nSuccess == 0)
    ? oJsonToken:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    RETURN
ENDIF

oHttp:AuthToken := oJsonToken: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.
oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("message.subject", "Meet for lunch?")
oJson:UpdateString("message.body.contentType", "Text")
oJson:UpdateString("message.body.content", "The new cafeteria is open.")
oJson:UpdateString("message.toRecipients[0].emailAddress.name", "Chilkat Software")
oJson:UpdateString("message.toRecipients[0].emailAddress.address", "admin@chilkat.io")
oJson:UpdateString("message.toRecipients[1].emailAddress.address", "chilkat.support@gmail.com")
oJson:UpdateString("message.ccRecipients[0].emailAddress.name", "Chilkat Blog")
oJson:UpdateString("message.ccRecipients[0].emailAddress.address", "admin@cknotes.com")
oJson:UpdateBool("saveToSentItems", 1)

//  Send the HTTP POST (i.e. send the email)
oResp := CreateObject("Chilkat.HttpResponse")
nSuccess := oHttp:HttpJson("POST", "https://graph.microsoft.com/v1.0/me/sendMail", oJson, "application/json", oResp)
IF (nSuccess == 0)
    ? oHttp:LastErrorText
    oHttp:destroy()
    oJsonToken:destroy()
    oJson:destroy()
    oResp:destroy()
    RETURN
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 (oResp:StatusCode != 202)
    oJson:Load(oResp:BodyStr)
    oJson:EmitCompact := 0
    ? oJson:Emit()
    ? "Failed, response status code = " + Str(oResp:StatusCode)
ELSE
    ? "Outlook Mail Sent."
ENDIF

oHttp:destroy()
oJsonToken:destroy()
oJson:destroy()
oResp:destroy()