VBScript

Email Body - Plain Text and/or HTML

Any given email may have a plain-text body, an HTML body, or both. The Body property will return the HTML body by default (if it exists) otherwise it will return the plain-text body. There are methods for checking to see if an email has a particular body (HasPlainTextBody and HasHtmlBody) and there are methods for getting a specific body: GetHtmlBody, GetPlainTextBody. 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

set email = CreateObject("Chilkat.Email")

' Load an email from a .eml

success = email.LoadEml("something.eml")
If (success <> 1) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

' Display the default Body:
outFile.WriteLine(email.Body)

' If a plain-text body is present, display it:

bText = email.HasPlainTextBody()
If (bText = 1) Then
    outFile.WriteLine(email.GetPlainTextBody())
End If

' If an HTML body is present, display the HTML source:

bHtml = email.HasHtmlBody()
If (bHtml = 1) Then
    outFile.WriteLine(email.GetHtmlBody())
End If


outFile.Close