VBScript

Set a MIME Body from HTML

Demonstrates the Chilkat Mime.SetBodyFromHtml method, which sets the body as HTML and changes the media type to text/html. The only argument is the HTML text.

Background: Setting an HTML body is how you produce the rich-formatted part of a message. Chilkat marks it text/html and chooses the encoding based on the content — 7bit for ASCII, a charset-aware encoding otherwise. In practice an HTML email is usually paired with a plain-text alternative inside a multipart/alternative so clients that cannot render HTML still have readable text.

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.SetBodyFromHtml method, which sets the body as HTML and changes the media
'  type to text/html.  The only argument is the HTML text.

set mime = CreateObject("Chilkat.Mime")

html = "<html><body><h1>Hello</h1><p>This is an HTML body.</p></body></html>"
success = mime.SetBodyFromHtml(html)
If (success = 0) Then
    outFile.WriteLine(mime.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("Content-Type: " & mime.ContentType)

outFile.Close