VBScript

Load an Email from MIME in a StringBuilder

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

Background: This is the StringBuilder counterpart to SetFromMimeText. When the MIME already lives in a StringBuilder — perhaps assembled or edited there — passing it directly avoids converting to an intermediate string, which is more efficient for large messages.

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

'  Build a source email and get its MIME into a StringBuilder.
set source = CreateObject("Chilkat.Email")
source.Subject = "Source message"
source.From = "alice@example.com"
source.Body = "Hello from a StringBuilder."
set sbMime = CreateObject("Chilkat.StringBuilder")
success = source.GetMimeSb(sbMime)

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

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

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

outFile.Close