VBScript

Render an Email to MIME in a StringBuilder

Demonstrates the Chilkat MailMan.RenderToMimeSb method, which renders an Email object as MIME text and appends the result to a StringBuilder, without sending the email. This example renders a message into a StringBuilder and prints it.

Background: This is the StringBuilder version of RenderToMime. Appending into a StringBuilder is more efficient when the MIME is large or when you plan to further inspect or manipulate it — searching, replacing, or accumulating additional text — without creating extra intermediate string copies.

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.RenderToMimeSb method, which renders an Email object as MIME text
'  and appends the result to a StringBuilder (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 in a StringBuilder."

'  Render the MIME into a StringBuilder.
set sbMime = CreateObject("Chilkat.StringBuilder")

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

outFile.WriteLine(sbMime.GetAsString())

outFile.Close