VBScript

Load MIME from BinData

Demonstrates the Chilkat Mime.LoadMimeBd method, which parses complete MIME bytes from a BinData and replaces the current MIME. The only argument is the BinData.

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 is the safest loader because it works on raw bytes: MIME can carry 8-bit content and even embedded NUL bytes that a text string would mangle, so loading from a BinData preserves the message exactly. Prefer it whenever the input is binary or of uncertain encoding — a downloaded message, a file read as bytes — over the string-based loaders.

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.LoadMimeBd method, which parses complete MIME bytes from a BinData and
'  replaces the current MIME.  The only argument is the BinData.  This is the preferred loader
'  when the MIME may contain arbitrary 8-bit or embedded NUL bytes.

set bd = CreateObject("Chilkat.BinData")
success = bd.LoadFile("qa_data/message.eml")
If (success = 0) Then
    outFile.WriteLine(bd.LastErrorText)
    WScript.Quit
End If

set mime = CreateObject("Chilkat.Mime")
success = mime.LoadMimeBd(bd)
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Content-Type: " & mime.ContentType)

outFile.Close