VBScript

Render an Email to MIME Bytes in a BinData

Demonstrates the Chilkat MailMan.RenderToMimeBd method, which renders an Email object as MIME bytes and appends the result to a BinData, without sending the email. This example renders a message into a BinData and prints the byte count.

Background: This is the binary version of RenderToMime. A BinData holds raw bytes, which is the right container when you want the rendered MIME as binary — to write it directly to a file or socket, hash it, or hand it to another API expecting a byte buffer — rather than as text.

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 MailMan.RenderToMimeBd method, which renders an Email object as MIME
'  bytes and appends the result to a BinData (without sending the email).

set mailman = CreateObject("Chilkat.MailMan")

'  Build the email to render.
set email = CreateObject("Chilkat.Email")
email.Subject = "Rendered email"
email.From = "alice@example.com"
success = email.AddTo("Bob","bob@example.com")
email.Body = "This message is rendered to MIME bytes in a BinData."

'  Render the MIME into a BinData.
set bdMime = CreateObject("Chilkat.BinData")

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

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

outFile.Close