VBScript

Get the Content-Type of a Related Item

Demonstrates the Chilkat Email.GetRelatedContentType method, which returns the Content-Type of the Nth related content item in an email. The index is zero-based. This example adds a related style sheet and reads its content type.

Background: Each related item declares a Content-Type — image/png for an inline image, text/css for a style sheet, and so on — that tells the rendering client how to use it. Reading the content type lets a program enumerate a message's embedded resources and act on them by kind, for example collecting every inline image while ignoring the style sheets.

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 GetRelatedContentType method, which returns the Content-Type of the Nth
'  related content item in an email.  The index is zero-based.

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

'  The HTML references the 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 Content-Type of the first related item (index 0).
ct = email.GetRelatedContentType(0)
outFile.WriteLine("Related item 0 Content-Type: " & ct)

outFile.Close