VBScript

Convert HTML Text to an EML File

Demonstrates Mht.HtmlToEMLFile, which creates an EML MIME message from an in-memory HTML string and saves it to a file.

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 EML output is a MIME email message containing the HTML page and its referenced resources, suitable for sending the page as an HTML email.

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

set mht = CreateObject("Chilkat.Mht")

'  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.

'  Create an EML MIME message from an in-memory HTML string and save it to a file.
htmlText = "<html><head><title>Example</title></head><body><h1>Hello</h1><p>An example HTML page.</p></body></html>"
success = mht.HtmlToEMLFile(htmlText,"qa_output/page.eml")
If (success = 0) Then
    outFile.WriteLine(mht.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("EML saved.")

outFile.Close