Xbase++
Outlook Send Email with Attachments

This example sends a plain-text email with attachments. Other examples exist for:
Sending plain-text email.
Sending HTML email.
Sending HTML email with embedded images.
Sending HTML email with embedded images and attachments.
Chilkat Xbase++ Downloads

Xbase++
LOCAL nSuccess
LOCAL oHttp
LOCAL oAttach1
LOCAL oAttach2
LOCAL oJson
LOCAL oResp

nSuccess := 0

//  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.

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).

oHttp: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.
oAttach1 := CreateObject("Chilkat.BinData")
oAttach1:LoadFile("qa_data/pdf/fishing.pdf")
oAttach2 := CreateObject("Chilkat.BinData")
oAttach2: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.
oJson := CreateObject("Chilkat.JsonObject")
oJson:UpdateString("message.subject", "Sample Email with Attachments")
oJson:UpdateString("message.body.contentType", "Text")
oJson:UpdateString("message.body.content", "This is the plain-text body...")

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:UpdateString('message.attachments[0]."@odata.type"', "#microsoft.graph.fileAttachment")
oJson:UpdateString("message.attachments[0].name", "fishing.pdf")
oJson:UpdateString("message.attachments[0].contentType", "application/pdf")
oJson:UpdateInt("message.attachments[0].size", oAttach1:NumBytes)
oJson:UpdateBool("message.attachments[0].isInline", 0)
oJson:UpdateBd("message.attachments[0].contentBytes", "base64", oAttach1)

oJson:UpdateString('message.attachments[1]."@odata.type"', "#microsoft.graph.fileAttachment")
oJson:UpdateString("message.attachments[1].name", "sample.docx")
oJson:UpdateString("message.attachments[1].contentType", "application/vnd.openxmlformats-officedocument.wordprocessingml.document")
oJson:UpdateInt("message.attachments[1].size", oAttach2:NumBytes)
oJson:UpdateBool("message.attachments[1].isInline", 0)
oJson:UpdateBd("message.attachments[1].contentBytes", "base64", oAttach2)

oJson:UpdateBool("saveToSentItems", 1)

//  -------------------------------------------------------------
//  Important: This example requires Chilkat v9.5.0.68 or greater.
//  -------------------------------------------------------------

//  Send the HTTP POST (i.e. send the HTML 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()
    oAttach1:destroy()
    oAttach2: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 with Attachments Sent."
ENDIF

oHttp:destroy()
oAttach1:destroy()
oAttach2:destroy()
oJson:destroy()
oResp:destroy()