Perl

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

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# 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.

my $email = Chilkat2::Email->new;
$email->Subject('Project update');
$email->From('alice@example.com');
$email->AddTo('Bob', 'bob@example.com');
$email->Body('Here is the project update.');

# Create a reply email based on this message.
my $reply = Chilkat2::Email->new;

my $success = $email->ToReply($reply);
if (!$success) {
    print $email->LastErrorText, "\n";
    exit;
}

# The reply is addressed and quoted, ready to edit and send.
print $reply->GetMime(), "\n";