VBScript

Save MIME as an XML File

Demonstrates the Chilkat Mime.SaveXml method, which writes Chilkat's MIME XML representation to a local file. The only argument is the file path; the file can later be loaded by LoadXmlFile.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: The file-writing form of GetXml, for persisting a message's structure as XML that LoadXmlFile can reconstruct. This XML round-trip is a convenient way to store or version a message in a format editable with standard XML tooling.

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 Mime.SaveXml method, which writes Chilkat's MIME XML representation to a local
'  file.  The only argument is the file path.  The file can later be loaded by LoadXmlFile.

set mime = CreateObject("Chilkat.Mime")

success = mime.LoadMimeFile("qa_data/message.eml")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

success = mime.SaveXml("qa_output/message_mime.xml")
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Saved XML.")

outFile.Close