(DataFlex) Create Complex Email

This is an example showing how to create an email that has file attachments, contains both plain-text and HTML alternative bodies, and has embedded images within the HTML. The email is saved to a .eml file, which is a text file and can be viewed in any text editor. EML is nothing more than the MIME source of an email. In this example, you'll see that the MIME is structured in three layers of multipart content types. The outermost layer is multipart/mixed. This is typically where you'll find file attachments and attached messages. Underneath the multipart/mixed is a multipart/related envelope. Within this you'll find the "related" items -- which are the items belonging to the HTML body (images and style sheets). Underneath the multipart/related you'll find the multipart/alternative, and this contains the text/plain and text/html alternative bodies.

Chilkat ActiveX Downloads

ActiveX for 32-bit and 64-bit Windows

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoEmail
    String sContentType
    Boolean iSuccess
    String sContentIdDude
    String sHtml
    String sTemp1
    Boolean bTemp1

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

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    // Adding attachments, HTML/plain-text bodies, etc can be done
    // in any order:

    // Add an attachment
    Get ComAddFileAttachment Of hoEmail "hamlet.zip" To sContentType
    Get ComLastMethodSuccess Of hoEmail To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Add some headers:
    Set ComSubject Of hoEmail To "This is a complex email"
    Get ComAddTo Of hoEmail "Chilkat Support" "support@chilkatsoft.com" To iSuccess
    Set ComFrom Of hoEmail To "Matt <matt@chilkatsoft.com>"

    // Add a plain-text body:
    Get ComAddPlainTextAlternativeBody Of hoEmail "This is the plain-text body" To iSuccess

    // Add an image that will be embedded in the HTML body.
    Get ComAddRelatedFile Of hoEmail "dude.gif" To sContentIdDude
    Get ComLastMethodSuccess Of hoEmail To bTemp1
    If (bTemp1 <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // Update the CONTENT_ID_DUDE to the actual content ID when sending the email.
    Get ComSetReplacePattern Of hoEmail "CONTENT_ID_DUDE" sContentIdDude To iSuccess

    // Add an HTML body:

    Move '<html><body><b>This is the HTML body</b><br><img src="cid:CONTENT_ID_DUDE"></body></html>' To sHtml

    Get ComAddHtmlAlternativeBody Of hoEmail sHtml To iSuccess

    // Save the email as a .eml

    Get ComSaveEml Of hoEmail "complex.eml" To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Created email!"
    End



End_Procedure