VBScript

Load MIME from a StringBuilder

Demonstrates the Chilkat Mime.LoadMimeSb method, which parses complete MIME text from a StringBuilder and replaces the current MIME. The only argument is the StringBuilder.

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: When the MIME text already lives in a StringBuilder — assembled in memory, or read and lightly edited — this loads it directly without an intermediate string copy. Its parsing behavior matches LoadMime; the difference is purely the source. For content that might include arbitrary binary bytes, use the BinData loader instead.

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.LoadMimeSb method, which parses complete MIME text from a StringBuilder
'  and replaces the current MIME.  The only argument is the StringBuilder.

'  Put the MIME text into a StringBuilder (here loaded from a file, but it could come from
'  anywhere).
set sb = CreateObject("Chilkat.StringBuilder")
success = sb.LoadFile("qa_data/message.eml","utf-8")
If (success = 0) Then
    outFile.WriteLine(sb.LastErrorText)
    WScript.Quit
End If

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

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

outFile.Close