VBScript

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 VBScript Downloads

Download Chilkat for VBScript

VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

set email = CreateObject("Chilkat.Email")

'  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"
outFile.WriteLine("NumRelatedItems before = " & email.NumRelatedItems)

'  Remove all related items.
email.DropRelatedItems 

outFile.WriteLine("NumRelatedItems after = " & email.NumRelatedItems)

outFile.Close