Perl

Make a Copy of an Email

Demonstrates the Chilkat Email.MakeCopy method, which copies the entire state of this email into another Email object — message content, recipients, headers, body representations, attachments, and related items. This example copies an email and reads a couple of fields from the copy.

Background: A deep copy gives you an independent duplicate: changes to one object do not affect the other. This is handy for template-and-tweak workflows — build a base message once, copy it per recipient, then vary only the recipient or a few fields — without risk of one send's edits bleeding into the next.

Chilkat Perl Downloads

Download Chilkat for Perl

Chilkat2 Perl

use strict;
use warnings;
use Chilkat2;

# Demonstrates the MakeCopy method, which copies the entire state of this email into
# another Email object -- message content, recipients, headers, bodies, attachments, and
# related items.

my $email = Chilkat2::Email->new;
$email->Subject('Original');
$email->From('alice@example.com');
$email->AddTo('Bob', 'bob@example.com');
$email->Body('Original body.');

# Copy the entire email into a new Email object.
my $copy = Chilkat2::Email->new;

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

print 'Copy subject: ', $copy->Subject, "\n";
print 'Copy NumTo: ', $copy->NumTo, "\n";