VBScript

Get the Filename of a Related Item

Demonstrates the Chilkat Email.GetRelatedFilename method, which returns the filename of a related item contained within the email. Related items are typically images and style sheets embedded within HTML emails, and the index is zero-based. This example adds a related style sheet and reads its filename.

Background: A related item's filename is how the HTML body refers to it — for example a style sheet named styles.css or an image named logo.png. When unpacking or archiving an HTML email, this filename is the natural name to write each embedded resource to on disk so the rewritten HTML links continue to resolve.

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 GetRelatedFilename method, which returns the filename of a related item
'  contained within the email.  Related items are typically images and style sheets
'  embedded within HTML emails.  The index is zero-based.

set email = CreateObject("Chilkat.Email")
email.Subject = "GetRelatedFilename example"

'  The HTML references a related style sheet by name (Content-Location).
email.SetHtmlBody "<html><head><link rel=""stylesheet"" href=""styles.css""/></head><body>Styled.</body></html>"

'  Add the related style sheet (index 0).
email.AddRelatedString2 "styles.css","body { color: navy; }","utf-8"

'  Read the filename of the first related item (index 0).
fname = email.GetRelatedFilename(0)
outFile.WriteLine("Related item 0 filename: " & fname)

outFile.Close