VBScript

Load an Email from MIME in a BinData

Demonstrates the Chilkat Email.SetFromMimeBd method, which loads an email from the MIME stored in a BinData object. On success, it replaces the entire current email. This example serializes one email into a BinData with GetMimeBd, then reconstructs it in a second object.

Background: This is the binary counterpart to SetFromMimeText and SetFromMimeSb. When a message's raw MIME arrives as bytes — read from a file, a socket, or a database blob into a BinData — loading it directly avoids any lossy or awkward byte-to-text conversion, which matters because MIME can carry binary transfer encodings.

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 SetFromMimeBd method, which loads an email from MIME stored in a BinData
'  object.  On success, it replaces the entire current email.

'  Build a source email and serialize its MIME into a BinData.
set source = CreateObject("Chilkat.Email")
source.Subject = "Source message"
source.From = "alice@example.com"
source.Body = "Hello from a BinData."
set bdMime = CreateObject("Chilkat.BinData")
success = source.GetMimeBd(bdMime)

'  Load a new email object from the BinData MIME.
set email = CreateObject("Chilkat.Email")

success = email.SetFromMimeBd(bdMime)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Loaded subject: " & email.Subject)

outFile.Close