VBScript

Check Whether an Email Has a Plain-Text Body

Demonstrates the Chilkat Email.HasPlainTextBody method, which returns true only when a text/plain body is present in the current email object. This example sets a plain-text body and confirms its presence.

Background: The plain-text body is the fallback representation used when HTML is unavailable or unwanted — and the form usually preferred for search, indexing, and accessibility. HasPlainTextBody is the counterpart to HasHtmlBody; testing both lets a program handle every combination (text-only, HTML-only, both, or neither) gracefully.

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 HasPlainTextBody method, which returns true only when a text/plain body
'  is present in the current email object.

set email = CreateObject("Chilkat.Email")
email.Subject = "HasPlainTextBody example"

email.SetTextBody "Hello, this is the plain-text body.","text/plain"

If (email.HasPlainTextBody() = 1) Then
    outFile.WriteLine("The email has a plain-text body.")
Else
    outFile.WriteLine("The email does not have a plain-text body.")
End If


outFile.Close