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

Perl

use chilkat();

$success = 0;

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

$email = chilkat::CkEmail->new();
$email->put_Subject("Original");
$email->put_From('alice@example.com');
$email->AddTo("Bob",'bob@example.com');
$email->put_Body("Original body.");

#  Copy the entire email into a new Email object.
$copy = chilkat::CkEmail->new();

$success = $email->MakeCopy($copy);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

print "Copy subject: " . $copy->subject() . "\r\n";
print "Copy NumTo: " . $copy->get_NumTo() . "\r\n";