VBScript

Create a Reply Email

Demonstrates the Chilkat Email.ToReply method, which generates a reply email with updated header and body fields so it can be sent as a reply. Attachments are excluded from the reply, but attached messages are included. The source email is not modified. This example creates a reply and prints its MIME.

Background: Replying is more than swapping sender and recipient: the To is set from the original's reply address, the subject gets an Re: prefix, the original text is quoted, and threading headers (In-Reply-To, References) are added so mail clients group the conversation. ToReply assembles all of that, leaving a message you can edit and send. Dropping attachments is the usual reply convention — you rarely echo the sender's files back to them.

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)

success = 0

'  Demonstrates the ToReply method, which generates a reply email with updated header and
'  body fields ready to send as a reply.  Attachments are excluded from the reply, but
'  attached messages are included.  The source email is not modified.

set email = CreateObject("Chilkat.Email")
email.Subject = "Project update"
email.From = "alice@example.com"
success = email.AddTo("Bob","bob@example.com")
email.Body = "Here is the project update."

'  Create a reply email based on this message.
set reply = CreateObject("Chilkat.Email")

success = email.ToReply(reply)
If (success = 0) Then
    outFile.WriteLine(email.LastErrorText)
    WScript.Quit
End If

'  The reply is addressed and quoted, ready to edit and send.
outFile.WriteLine(reply.GetMime())

outFile.Close