Tcl

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 Tcl Downloads

Download Chilkat for Tcl

Tcl


load ./chilkat.dll

set 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 [new_CkEmail]

CkEmail_put_Subject $email "Project update"
CkEmail_put_From $email "alice@example.com"
CkEmail_AddTo $email "Bob" "bob@example.com"
CkEmail_put_Body $email "Here is the project update."

#  Create a reply email based on this message.
set reply [new_CkEmail]

set success [CkEmail_ToReply $email $reply]
if {$success == 0} then {
    puts [CkEmail_lastErrorText $email]
    delete_CkEmail $email
    delete_CkEmail $reply
    exit
}

#  The reply is addressed and quoted, ready to edit and send.
puts [CkEmail_getMime $reply]

delete_CkEmail $email
delete_CkEmail $reply