VBScript

Get the Nth Text Part of a Given Content-Type

Demonstrates the Chilkat Email.GetNthTextPartOfType method, which returns the text content of the Nth non-multipart MIME part matching a Content-Type pattern. The arguments are a zero-based index among the matching parts, the content-type pattern, an inlineOnly flag, and an excludeAttachments flag. This example retrieves the first text/html part.

Background: A MIME message is a tree of parts, and sometimes you want a specific one by its type rather than by walking alternatives or bodies. The content-type pattern can be exact (text/html) or a wildcard (text/*), and the two boolean flags narrow the search — inlineOnly restricts to inline (displayed) parts, and excludeAttachments skips parts marked as attachments — so you can target exactly the text you care about.

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 GetNthTextPartOfType method, which returns the text content of the Nth
'  non-multipart MIME part matching a Content-Type pattern.  The first argument is the zero-based
'  index among matching parts, the second is the Content-Type pattern, the third is inlineOnly, and the fourth is
'  excludeAttachments.

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

email.SetTextBody "This is the plain-text version.","text/plain"
success = email.AddHtmlAlternativeBody("<html><body>This is the HTML version.</body></html>")

'  Get the first (index 0) part whose content type matches text/html.
htmlPart = email.GetNthTextPartOfType(0,"text/html",0,0)
outFile.WriteLine("First text/html part:")
outFile.WriteLine(htmlPart)

outFile.Close