VBScript

Create an EML Message from a URL

Demonstrates Mht.GetEML, which creates an EML MIME message from a live web page (or local HTML file) and returns the complete EML text in memory.

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)

set mht = CreateObject("Chilkat.Mht")

'  Create an EML MIME message from a live web page and return the complete EML text in memory.
'  Referenced resources such as style sheets and images are captured.
emlText = mht.GetEML("https://example-code.com/crumb/email.html")
If (mht.LastMethodSuccess = 0) Then
    outFile.WriteLine(mht.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine(emlText)

outFile.Close