VBScript

Serialize MIME to BinData

Demonstrates the Chilkat Mime.GetMimeBd method, which serializes the complete MIME entity and appends its bytes to a BinData. The only argument is the BinData; existing bytes are preserved.

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 byte-exact serializer — the right choice when the MIME carries binary content such as an image or an 8-bit-encoded part, where routing the output through a text string could corrupt it. The result is a faithful byte stream you can write to a file, transmit, or hash. It pairs with LoadMimeBd for lossless round-tripping of binary MIME.

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.GetMimeBd method, which serializes the complete MIME entity and appends
'  its bytes to a BinData.  The only argument is the BinData.  Use this when arbitrary binary body
'  bytes must not pass through a text string.

set mime = CreateObject("Chilkat.Mime")

success = mime.SetBodyFromFile("qa_data/photo.jpg")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

'  Append the serialized MIME bytes to a BinData.  Existing bytes are preserved.
set bd = CreateObject("Chilkat.BinData")
success = mime.GetMimeBd(bd)
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Serialized " & bd.NumBytes & " bytes.")

outFile.Close