VBScript

Append Text to an Email Body

Demonstrates the Chilkat Email.AppendToBody method, which appends additional text to the email's existing plain-text body rather than replacing it. This example sets an initial body and then appends more text.

Background: Setting the body (via Body or SetTextBody) replaces whatever was there, while AppendToBody adds to it. That is convenient when a message body is assembled in pieces — for example a greeting, then dynamically generated lines, then a signature — without having to concatenate the whole string yourself before assigning it.

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 AppendToBody method, which appends additional text to the email's
'  existing plain-text body.

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

'  Set an initial body.
email.SetTextBody "First line.","text/plain"

'  Append more text to the existing body.
email.AppendToBody " Appended text."

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

outFile.Close