DataFlex

Remove All Related Items from an Email

Demonstrates the Chilkat Email.DropRelatedItems method, which removes all related items (embedded images, style sheets, and similar resources) from the email at once. This example adds two related items and then drops them all, printing the count before and after.

Background: Related items are the inline resources bundled with an HTML body inside a multipart/related enclosure. Dropping them all in one call is handy when you want to keep the HTML text but discard its embedded media — for instance, converting a rich message to a lightweight, text-focused version, or clearing inline images before re-adding fresh ones. To remove a single item instead, use DropRelatedItem with its index.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoEmail
    Integer iTemp1

    //  Demonstrates the DropRelatedItems method, which removes all related items (embedded
    //  images, style sheets, etc.) from the email at once.

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

    //  Set an HTML body that references two related items by name (Content-Location).
    Send ComSetHtmlBody To hoEmail '<html><head><link rel="stylesheet" href="styles.css"/></head><body><img src="logo.png"/></body></html>'

    //  Add two related items.
    Send ComAddRelatedString2 To hoEmail "styles.css" "body { color: navy; }" "utf-8"
    Send ComAddRelatedString2 To hoEmail "logo.png" "(pretend image data)" "utf-8"
    Get ComNumRelatedItems Of hoEmail To iTemp1
    Showln "NumRelatedItems before = " iTemp1

    //  Remove all related items.
    Send ComDropRelatedItems To hoEmail

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


End_Procedure