DataFlex
Embed Image in HTML Email

Demonstrates how to create and send an HTML email with an embedded image.
Chilkat DataFlex Downloads

DataFlex
Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoMailman
    Variant vEmail
    Handle hoEmail
    String sFileOnDisk
    String sFilePathInHtml
    String sHtmlBody
    String sTemp1

    Move False To iSuccess

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

    // The mailman object is used for sending and receiving email.
    Get Create (RefClass(cComChilkatMailMan)) To hoMailman
    If (Not(IsComObjectCreated(hoMailman))) Begin
        Send CreateComObject of hoMailman
    End

    // Set the SMTP server.
    Set ComSmtpHost Of hoMailman To "smtp.comcast.net"

    // Create a new email object
    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End

    // Add an embedded image to the HTML email.
    Move "images/dude2.gif" To sFileOnDisk
    Move "dudeAbc.gif" To sFilePathInHtml

    // Embed the GIF image in the email.
    Get ComAddRelatedFile2 Of hoEmail sFileOnDisk sFilePathInHtml To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    // The src attribute for the image tag is set to the filePathInHtml:
    Move '<html><body>Embedded Image:<br><img src="dudeAbc.gif"></body></html>' To sHtmlBody

    // Set the basic email stuff: HTML body, subject, "from", "to"
    Send ComSetHtmlBody To hoEmail sHtmlBody
    Set ComSubject Of hoEmail To "DataFlex HTML email with an embedded image."
    Get ComAddTo Of hoEmail "Admin" "admin@chilkatsoft.com" To iSuccess
    Set ComFrom Of hoEmail To "Chilkat Support <support@chilkatsoft.com>"

    Get pvComObject of hoEmail to vEmail
    Get ComSendEmail Of hoMailman vEmail To iSuccess
    If (iSuccess <> True) Begin
        Get ComLastErrorText Of hoMailman To sTemp1
        Showln sTemp1
    End
    Else Begin
        Showln "Mail Sent!"
    End



End_Procedure