DataFlex

Remove a Single Related Item from an Email

Demonstrates the Chilkat Email.DropRelatedItem method, which removes the related item at a given zero-based index. A related item is typically an embedded image or style sheet referenced from the HTML body (via a cid: link or Content-Location). This example adds a related style sheet, then removes it by index, printing the count before and after.

Background: Related items live in the message's multipart/related enclosure and are indexed from 0 to NumRelatedItems - 1. Removing one by index is useful when editing a received message — for example stripping a tracking pixel or an unwanted embedded image — while leaving the HTML body and any other related resources in place. To remove them all at once, use DropRelatedItems.

Chilkat DataFlex Downloads

Download Chilkat for DataFlex

DataFlex

Use ChilkatAx-win32.pkg

Procedure Test
    Handle hoEmail
    Integer iTemp1

    //  Demonstrates the DropRelatedItem method, which removes the related item at a given
    //  zero-based index.  A related item is typically an embedded image or style sheet
    //  referenced from the HTML body.

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

    //  Set an HTML body that references a related style sheet by name (Content-Location).
    Send ComSetHtmlBody To hoEmail '<html><head><link rel="stylesheet" href="styles.css"/></head><body>Styled.</body></html>'

    //  Add the related item (becomes index 0).
    Send ComAddRelatedString2 To hoEmail "styles.css" "body { color: navy; }" "utf-8"
    Get ComNumRelatedItems Of hoEmail To iTemp1
    Showln "NumRelatedItems before = " iTemp1

    //  Remove the related item at index 0.
    Send ComDropRelatedItem To hoEmail 0

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


End_Procedure