Perl

Attach an Email to Another Email

Demonstrates the Chilkat Email.AttachEmail method, which attaches a copy of another email to this email object. The attached email is encapsulated in a message/rfc822 subpart. Because a copy is attached, later changes to the source email do not affect the embedded message. This example attaches one email to another.

Background: "Forward as attachment" produces exactly this structure: the original message is embedded whole as a message/rfc822 part rather than quoted into the body. This preserves the original's headers and formatting intact, which matters for forwarding to a mailbox that will re-parse it, or for reporting spam/phishing with the original evidence attached. Such parts are counted by NumAttachedMessages.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the AttachEmail method, which attaches a copy of another email to this email
#  object.  The attached email is encapsulated in a message/rfc822 subpart.

$innerEmail = chilkat::CkEmail->new();
$innerEmail->put_Subject("Original message");
$innerEmail->put_From('alice@example.com');
$innerEmail->put_Body("This is the original message being forwarded.");

$email = chilkat::CkEmail->new();
$email->put_Subject("FW: Original message");
$email->put_From('bob@example.com');
$email->put_Body("See the attached original email.");

#  Attach a copy of the inner email as a message/rfc822 part.

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

print "NumAttachedMessages = " . $email->get_NumAttachedMessages() . "\r\n";