VBScript

Check if a MIME Part is Text

Demonstrates the Chilkat Mime.IsText method, which returns whether the Content-Type begins with text/. It takes no arguments and applies to the current part.

Note: The file path is relative to the application's current working directory. Absolute paths may also be used. Supply the path to your own file.

Background: IsText is the broad check for any textual part — text/plain, text/html, text/xml, and so on — which is what decides whether it is safe to decode the body to a string. For binary parts, decode to bytes instead. Use the narrower predicates when you need the exact text subtype.

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)

success = 0

'  Demonstrates the Mime.IsText method, which returns whether the Content-Type begins with text/.  It takes no arguments and applies to the current
'  part.  This example iterates the parts of a multipart message and reports which ones match.

set mime = CreateObject("Chilkat.Mime")
success = mime.LoadMimeFile("qa_data/multipart_message.eml")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

n = mime.NumParts
set part = CreateObject("Chilkat.Mime")

For i = 0 To n - 1
    success = mime.PartAt(i,part)
    If (success = 0) Then
        outFile.WriteLine(mime.LastErrorText)
        WScript.Quit
    End If

    If (part.IsText()) Then
        outFile.WriteLine("Part " & i & " (" & part.ContentType & ") is text.")
    End If

Next

outFile.Close