VBScript

Get the Transfer-Encoded MIME Body

Demonstrates the Chilkat Mime.GetBodyEncoded method, which returns the current part's transfer-encoded body text without decoding Base64 or quoted-printable. It takes no arguments.

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

Background: This returns the body as it appears on the wire — still Base64 or quoted-printable — which is useful for inspection, logging, or forwarding the encoded content verbatim. It is Chilkat's normalized serialization of the body, so it may differ in whitespace or line wrapping from the exact original bytes. For the readable content, use GetBodyDecoded.

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

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

'  Return the current part's transfer-encoded body text WITHOUT decoding Base64 or
'  quoted-printable.  This is the body as it appears on the wire.
encodedBody = mime.GetBodyEncoded()
If (mime.LastMethodSuccess = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(encodedBody)

outFile.Close