(DataFlex) 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 ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-9.5.0-win32.pkg

Procedure Test
    Handle hoHttp
    Handle hoJsonToken
    Boolean iSuccess
    Handle hoEmail
    String sContentIdStarfish
    Handle hoSbHtml
    Integer iNumReplacements
    String sContent
    Variant vBdMime
    Handle hoBdMime
    Variant vSbBase64
    Handle hoSbBase64
    Variant vResp
    Handle hoResp
    Handle hoJson
    String sTemp1
    Integer iTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatHttp)) To hoHttp
    If (Not(IsComObjectCreated(hoHttp))) Begin
        Send CreateComObject of hoHttp
    End

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

    Get Create (RefClass(cComChilkatJsonObject)) To hoJsonToken
    If (Not(IsComObjectCreated(hoJsonToken))) Begin
        Send CreateComObject of hoJsonToken
    End
    Get ComLoadFile Of hoJsonToken "qa_data/tokens/microsoftGraph.json" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoJsonToken To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComStringOf Of hoJsonToken "access_token" To sTemp1
    Set ComAuthToken Of hoHttp To sTemp1

    // 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
    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End
    Set ComSubject Of hoEmail To "Test Outlook API to Send HTML Email with Attachments"
    Set ComFrom Of hoEmail To "Mary <mary@somewhere.com>"
    Get ComAddTo Of hoEmail "Joe" "joe@example.com" To iSuccess

    // 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.)
    Get ComAddPlainTextAlternativeBody Of hoEmail "This is a plain-text alternative body..." To iSuccess

    // Our HTML will include an image, so add the related image here.
    Get ComAddRelatedFile Of hoEmail "qa_data/jpg/starfish.jpg" To sContentIdStarfish
    Get ComLastMethodSuccess Of hoEmail To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The src attribute for the image tag is set to the contentIdStarfish:
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbHtml
    If (Not(IsComObjectCreated(hoSbHtml))) Begin
        Send CreateComObject of hoSbHtml
    End
    Get ComAppend Of hoSbHtml "<html><body><p>This is an HTML email with an embedded image.</p>" To iSuccess
    Get ComAppend Of hoSbHtml '<p><img src="cid:CONTENT_ID_STARFISH" /></p></body></html>' To iSuccess
    Get ComReplace Of hoSbHtml "CONTENT_ID_STARFISH" sContentIdStarfish To iNumReplacements

    Get ComGetAsString Of hoSbHtml To sTemp1
    Get ComAddHtmlAlternativeBody Of hoEmail sTemp1 To iSuccess

    // Finally, add some attachments to the email.
    // Add a file attachment.
    Get ComAddFileAttachment2 Of hoEmail "qa_data/pdf/fishing.pdf" "application/pdf" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Add an attachment where the content is contained in a string.
    Move "This is the content of the 2nd attached file." To sContent
    Get ComAddStringAttachment Of hoEmail "someText.txt" sContent To iSuccess

    // Get the email as multi-line base64..
    Get Create (RefClass(cComChilkatBinData)) To hoBdMime
    If (Not(IsComObjectCreated(hoBdMime))) Begin
        Send CreateComObject of hoBdMime
    End
    Get pvComObject of hoBdMime to vBdMime
    Get ComGetMimeBd Of hoEmail vBdMime To iSuccess

    // Now get it as multi-line base64
    Get Create (RefClass(cComChilkatStringBuilder)) To hoSbBase64
    If (Not(IsComObjectCreated(hoSbBase64))) Begin
        Send CreateComObject of hoSbBase64
    End
    Get pvComObject of hoSbBase64 to vSbBase64
    Get ComGetEncodedSb Of hoBdMime "base64_mime" vSbBase64 To iSuccess

    // Send the HTTP POST (i.e. send the email)
    Get pvComObject of hoSbBase64 to vSbBase64
    Get ComPTextSb Of hoHttp "POST" "https://graph.microsoft.com/v1.0/me/sendMail" vSbBase64 "utf-8" "text/plain" False False To vResp
    If (IsComObject(vResp)) Begin
        Get Create (RefClass(cComChilkatHttpResponse)) To hoResp
        Set pvComObject Of hoResp To vResp
    End
    Get ComLastMethodSuccess Of hoHttp To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoHttp To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // 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.)
    Get ComStatusCode Of hoResp To iTemp1
    If (iTemp1 <> 202) Begin
        Get Create (RefClass(cComChilkatJsonObject)) To hoJson
        If (Not(IsComObjectCreated(hoJson))) Begin
            Send CreateComObject of hoJson
        End
        Get ComBodyStr Of hoResp To sTemp1
        Get ComLoad Of hoJson sTemp1 To iSuccess
        Set ComEmitCompact Of hoJson To False
        Get ComEmit Of hoJson To sTemp1
        Showln sTemp1
        Get ComStatusCode Of hoResp To iTemp1
        Showln "Failed, response status code = " iTemp1
    End
    Else Begin
        Showln "Outlook Mail Sent."
    End

    Send Destroy of hoResp


End_Procedure