DataFlex

Add a Related File Addressed by Content-Location

Demonstrates the Chilkat Email.AddRelatedFile2 method, which adds a local file as a related MIME resource addressed by Content-Location rather than Content-ID. The second argument becomes the related item's MIME filename and Content-Location value, and it should match the filename, path, or URL already used by the corresponding HTML reference (such as an img element's src). This example embeds an image referenced as logo.png.

Background: There are two ways HTML email links to embedded resources. The cid: approach (see AddRelatedFile) uses a generated Content-ID, while the Content-Location approach lets the HTML keep an ordinary-looking src="logo.png" and matches it to a part carrying the same Content-Location. The latter is handy when converting an existing web page to email, because the original relative URLs can stay unchanged.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Boolean iSuccess
    Handle hoEmail
    String sTemp1
    Integer iTemp1

    Move False To iSuccess

    //  Demonstrates the AddRelatedFile2 method, which adds a local file as a related MIME
    //  resource addressed by Content-Location rather than Content-ID.  The 2nd argument becomes
    //  the item's MIME filename / Content-Location and should match the reference in the HTML.

    Get Create (RefClass(cComChilkatEmail)) To hoEmail
    If (Not(IsComObjectCreated(hoEmail))) Begin
        Send CreateComObject of hoEmail
    End
    Set ComSubject Of hoEmail To "Email with a related image (by Content-Location)"

    //  The HTML references the image by the same name used as the Content-Location.
    Send ComSetHtmlBody To hoEmail '<html><body><img src="logo.png"/></body></html>'

    //  Add the file as a related item addressed by Content-Location "logo.png".
    Get ComAddRelatedFile2 Of hoEmail "qa_data/images/logo.png" "logo.png" To iSuccess
    If (iSuccess = False) Begin
        Get ComLastErrorText Of hoEmail To sTemp1
        Showln sTemp1
        Procedure_Return
    End

    Get ComNumRelatedItems Of hoEmail To iTemp1
    Showln "NumRelatedItems = " iTemp1

    //  Note: The path "qa_data/images/logo.png" is a relative local filesystem path,
    //  relative to the current working directory of the running application.


End_Procedure