VBScript

Get an Email's MIME into a BinData

Demonstrates the Chilkat Email.GetMimeBd method, which serializes the complete RFC822/MIME message (headers, body representations, related items, and attachments) and appends the bytes to a BinData object. This example builds a message, serializes it to a BinData, and prints the byte count.

Background: A BinData holds raw bytes, which is the right container when you want the MIME as binary rather than text — for example to write it directly to a file or socket, hash it, or hand it to another API that expects a byte buffer. It is the binary counterpart to GetMime (string) and GetMimeSb (StringBuilder).

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 GetMimeBd method, which serializes the complete RFC822/MIME message
'  (headers, bodies, related items, and attachments) and appends the bytes to a BinData
'  object.

set email = CreateObject("Chilkat.Email")
email.Subject = "GetMimeBd example"
email.From = "alice@example.com"
success = email.AddTo("Bob","bob@example.com")
email.Body = "Hello!"

'  Append the complete MIME to a BinData object.
set bdMime = CreateObject("Chilkat.BinData")
success = email.GetMimeBd(bdMime)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("MIME size (bytes) = " & bdMime.NumBytes)

outFile.Close