(PureBasic) Outlook Send Email using MIME Format

See more Outlook Examples

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

For more information, see https://learn.microsoft.com/en-us/graph/api/user-sendmail?view=graph-rest-1.0&tabs=http#example-4-send-a-new-message-using-mime-format

Chilkat PureBasic Module Download

Chilkat PureBasic Module

IncludeFile "CkJsonObject.pb"
IncludeFile "CkHttp.pb"
IncludeFile "CkEmail.pb"
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkHttpResponse.pb"
IncludeFile "CkBinData.pb"

Procedure ChilkatExample()

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

    http.i = CkHttp::ckCreate()
    If http.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

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

    jsonToken.i = CkJsonObject::ckCreate()
    If jsonToken.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success.i = CkJsonObject::ckLoadFile(jsonToken,"qa_data/tokens/microsoftGraph.json")
    If success = 0
        Debug CkJsonObject::ckLastErrorText(jsonToken)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        ProcedureReturn
    EndIf

    CkHttp::setCkAuthToken(http, CkJsonObject::ckStringOf(jsonToken,"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
    email.i = CkEmail::ckCreate()
    If email.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::setCkSubject(email, "Test Outlook API to Send HTML Email with Attachments")
    CkEmail::setCkFrom(email, "Mary <mary@somewhere.com>")
    CkEmail::ckAddTo(email,"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.)
    CkEmail::ckAddPlainTextAlternativeBody(email,"This is a plain-text alternative body...")

    ; Our HTML will include an image, so add the related image here.
    contentIdStarfish.s = CkEmail::ckAddRelatedFile(email,"qa_data/jpg/starfish.jpg")
    If CkEmail::ckLastMethodSuccess(email) <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkEmail::ckDispose(email)
        ProcedureReturn
    EndIf

    ; The src attribute for the image tag is set to the contentIdStarfish:
    sbHtml.i = CkStringBuilder::ckCreate()
    If sbHtml.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkStringBuilder::ckAppend(sbHtml,"<html><body><p>This is an HTML email with an embedded image.</p>")
    CkStringBuilder::ckAppend(sbHtml,"<p><img src=" + Chr(34) + "cid:CONTENT_ID_STARFISH" + Chr(34) + " /></p></body></html>")
    numReplacements.i = CkStringBuilder::ckReplace(sbHtml,"CONTENT_ID_STARFISH",contentIdStarfish)

    CkEmail::ckAddHtmlAlternativeBody(email,CkStringBuilder::ckGetAsString(sbHtml))

    ; Finally, add some attachments to the email.
    ; Add a file attachment.
    success = CkEmail::ckAddFileAttachment2(email,"qa_data/pdf/fishing.pdf","application/pdf")
    If success <> 1
        Debug CkEmail::ckLastErrorText(email)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkEmail::ckDispose(email)
        CkStringBuilder::ckDispose(sbHtml)
        ProcedureReturn
    EndIf

    ; Add an attachment where the content is contained in a string.
    content.s = "This is the content of the 2nd attached file."
    CkEmail::ckAddStringAttachment(email,"someText.txt",content)

    ; Get the email as multi-line base64..
    bdMime.i = CkBinData::ckCreate()
    If bdMime.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkEmail::ckGetMimeBd(email,bdMime)

    ; Now get it as multi-line base64
    sbBase64.i = CkStringBuilder::ckCreate()
    If sbBase64.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    CkBinData::ckGetEncodedSb(bdMime,"base64_mime",sbBase64)

    ; Send the HTTP POST (i.e. send the email)
    resp.i = CkHttp::ckPTextSb(http,"POST","https://graph.microsoft.com/v1.0/me/sendMail",sbBase64,"utf-8","text/plain",0,0)
    If CkHttp::ckLastMethodSuccess(http) <> 1
        Debug CkHttp::ckLastErrorText(http)
        CkHttp::ckDispose(http)
        CkJsonObject::ckDispose(jsonToken)
        CkEmail::ckDispose(email)
        CkStringBuilder::ckDispose(sbHtml)
        CkBinData::ckDispose(bdMime)
        CkStringBuilder::ckDispose(sbBase64)
        ProcedureReturn
    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 CkHttpResponse::ckStatusCode(resp) <> 202
        json.i = CkJsonObject::ckCreate()
        If json.i = 0
            Debug "Failed to create object."
            ProcedureReturn
        EndIf

        CkJsonObject::ckLoad(json,CkHttpResponse::ckBodyStr(resp))
        CkJsonObject::setCkEmitCompact(json, 0)
        Debug CkJsonObject::ckEmit(json)
        Debug "Failed, response status code = " + Str(CkHttpResponse::ckStatusCode(resp))
    Else
        Debug "Outlook Mail Sent."
    EndIf

    CkHttpResponse::ckDispose(resp)



    CkHttp::ckDispose(http)
    CkJsonObject::ckDispose(jsonToken)
    CkEmail::ckDispose(email)
    CkStringBuilder::ckDispose(sbHtml)
    CkBinData::ckDispose(bdMime)
    CkStringBuilder::ckDispose(sbBase64)
    CkJsonObject::ckDispose(json)


    ProcedureReturn
EndProcedure