VBScript

Add a Plain-Text Alternative Body to an Email

Demonstrates the Chilkat Email.AddPlainTextAlternativeBody method, which adds a plain-text alternative body. Combined with an HTML body, it produces a multipart/alternative email that carries both representations. This example sets an HTML body, adds a plain-text alternative, and prints the alternative count.

Background: This is the companion to AddHtmlAlternativeBody. A polished email provides both an HTML body (for rich display) and a plain-text fallback, and the receiving client picks whichever it prefers. Including a real plain-text alternative — rather than letting the HTML stand alone — improves accessibility, helps with spam scoring, and guarantees the message is readable in text-only environments.

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)

'  Demonstrates the AddPlainTextAlternativeBody method, which adds a plain-text alternative
'  body.  Combined with an HTML body, this produces a multipart/alternative email offering
'  both representations of the same content.

set email = CreateObject("Chilkat.Email")
email.Subject = "HTML with a plain-text alternative"

'  Set an HTML body.
email.SetHtmlBody "<html><body><b>This is the HTML version.</b></body></html>"

'  Add a plain-text alternative.
success = email.AddPlainTextAlternativeBody("This is the plain-text version.")

outFile.WriteLine("NumAlternatives = " & email.NumAlternatives)

outFile.Close