VBScript

Save an Email to a Chilkat XML File

Demonstrates the Chilkat Email.SaveXml method, which converts the email object to Chilkat's XML representation and saves it to a file. It can later be reloaded with LoadXml. This example builds a message and saves it as XML.

Background: This XML format is an alternative to the standard .eml (MIME) format for persisting an email. Note that .eml also preserves Chilkat's CKX- metadata headers (which are always removed before an email is sent), so it captures the same information. Because .eml is universal and interoperable, Chilkat recommends using SaveEml / LoadEml over the XML format — even within Chilkat-based software.

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 SaveXml method, which converts the email object to Chilkat's XML
'  representation and saves it to a file.  It can later be reloaded with LoadXml.

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

'  Save the email to a Chilkat XML file.
success = email.SaveXml("qa_output/email.xml")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Saved to email.xml.")

'  Note: The path "qa_output/..." is a relative local filesystem path,
'  relative to the current working directory of the running application.

outFile.Close