VBScript

Check Whether an Email Has an HTML Body

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

Background: Because a message may contain a plain-text body, an HTML body, both, or neither, it is good practice to test before extracting. HasHtmlBody lets you decide whether to call GetHtmlBody or fall back to GetPlainTextBody — avoiding surprises when a sender provides only one representation.

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

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

email.SetHtmlBody "<html><body><b>Hello in HTML.</b></body></html>"

If (email.HasHtmlBody() = 1) Then
    outFile.WriteLine("The email has an HTML body.")
Else
    outFile.WriteLine("The email does not have an HTML body.")
End If


outFile.Close