VBScript

Save an Email to a .eml File

Demonstrates the Chilkat Email.SaveEml method, which converts the email object to EML and saves it to a file. An EML file contains the complete RFC822/MIME message — headers, bodies, related items, and attachments. This example builds a message and saves it.

Background: Saving as .eml writes the message in the universal MIME format that virtually every mail client can open, making it ideal for archiving, sharing, or handing a message to another program. It is the counterpart to LoadEml. A saved .eml also retains Chilkat's CKX- metadata headers (a way to store your own metadata with the email; they are always stripped before an email is sent), so .eml is the recommended way to persist a message even within Chilkat-based software. A separate Chilkat XML format (SaveXml) exists as an alternative, but offers no metadata advantage over .eml.

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 SaveEml method, which converts the email object to EML and saves it to
'  a file.  An EML file contains the complete RFC822/MIME message, including headers,
'  bodies, related items, and attachments.

set email = CreateObject("Chilkat.Email")
email.Subject = "Save as EML"
email.From = "alice@example.com"
success = email.AddTo("Bob","bob@example.com")
email.Body = "Hello, this message will be saved as a .eml file."

'  Save the email to a .eml file.
success = email.SaveEml("qa_output/message.eml")
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Saved to message.eml.")

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

outFile.Close