Visual Basic 6.0
Visual Basic 6.0
Remove All Related Items from an Email
See more Email Object Examples
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 Visual Basic 6.0 Downloads
' Demonstrates the DropRelatedItems method, which removes all related items (embedded
' images, style sheets, etc.) from the email at once.
Dim email As New ChilkatEmail
' Set an HTML body that references two related items by name (Content-Location).
email.SetHtmlBody "<html><head><link rel=""stylesheet"" href=""styles.css""/></head><body><img src=""logo.png""/></body></html>"
' Add two related items.
email.AddRelatedString2 "styles.css","body { color: navy; }","utf-8"
email.AddRelatedString2 "logo.png","(pretend image data)","utf-8"
Debug.Print "NumRelatedItems before = " & email.NumRelatedItems
' Remove all related items.
email.DropRelatedItems
Debug.Print "NumRelatedItems after = " & email.NumRelatedItems