Lianja
Outlook Send Email using MIME Format

This example sends an email using MIME format via the Microsoft Graph Outlook REST API.
Chilkat Lianja Downloads

Lianja
llSuccess = .F.

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

loHttp = createobject("CkHttp")

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

loJsonToken = createobject("CkJsonObject")
llSuccess = loJsonToken.LoadFile("qa_data/tokens/microsoftGraph.json")
if (llSuccess = .F.) then
    ? loJsonToken.LastErrorText
    release loHttp
    release loJsonToken
    return
endif

loHttp.AuthToken = loJsonToken.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 will contain the MIME source of the email in base64 format.

// Create a new email object
loEmail = createobject("CkEmail")
loEmail.Subject = "Test Outlook API to Send HTML Email with Attachments"
loEmail.From = "Mary <mary@somewhere.com>"
loEmail.AddTo("Joe","joe@example.com")

// Add a plain-text alternative body, which will likely never be seen.
// (It is shown if the receiving email client is incapable of displaying HTML email.)
loEmail.AddPlainTextAlternativeBody("This is a plain-text alternative body...")

// Our HTML will include an image, so add the related image here.
lcContentIdStarfish = loEmail.AddRelatedFile("qa_data/jpg/starfish.jpg")
if (loEmail.LastMethodSuccess = .F.) then
    ? loEmail.LastErrorText
    release loHttp
    release loJsonToken
    release loEmail
    return
endif

// The src attribute for the image tag is set to the contentIdStarfish:
loSbHtml = createobject("CkStringBuilder")
loSbHtml.Append("<html><body><p>This is an HTML email with an embedded image.</p>")
loSbHtml.Append('<p><img src="cid:CONTENT_ID_STARFISH" /></p></body></html>')
lnNumReplacements = loSbHtml.Replace("CONTENT_ID_STARFISH",lcContentIdStarfish)

loEmail.AddHtmlAlternativeBody(loSbHtml.GetAsString())

// Finally, add some attachments to the email.
// Add a file attachment.
llSuccess = loEmail.AddFileAttachment2("qa_data/pdf/fishing.pdf","application/pdf")
if (llSuccess = .F.) then
    ? loEmail.LastErrorText
    release loHttp
    release loJsonToken
    release loEmail
    release loSbHtml
    return
endif

// Add an attachment where the content is contained in a string.
lcContent = "This is the content of the 2nd attached file."
loEmail.AddStringAttachment("someText.txt",lcContent)

// Get the email as multi-line base64..
loBdMime = createobject("CkBinData")
loEmail.GetMimeBd(loBdMime)

// Now get it as multi-line base64
loSbBase64 = createobject("CkStringBuilder")
loBdMime.GetEncodedSb("base64_mime",loSbBase64)

// Send the HTTP POST (i.e. send the email)
loResp = createobject("CkHttpResponse")
llSuccess = loHttp.HttpSb("POST","https://graph.microsoft.com/v1.0/me/sendMail",loSbBase64,"utf-8","text/plain",loResp)
if (llSuccess = .F.) then
    ? loHttp.LastErrorText
    release loHttp
    release loJsonToken
    release loEmail
    release loSbHtml
    release loBdMime
    release loSbBase64
    release loResp
    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 (loResp.StatusCode <> 202) then
    loJson = createobject("CkJsonObject")
    loJson.Load(loResp.BodyStr)
    loJson.EmitCompact = .F.
    ? loJson.Emit()
    ? "Failed, response status code = " + str(loResp.StatusCode)
else
    ? "Outlook Mail Sent."
endif



release loHttp
release loJsonToken
release loEmail
release loSbHtml
release loBdMime
release loSbBase64
release loResp
release loJson