Perl

Get an Attached Message as an Email Object

Demonstrates the Chilkat Email.GetAttachedEmail method, which copies the Nth embedded message/rfc822 MIME part into another Email object. The index is zero-based (valid values run from 0 through NumAttachedMessages - 1). This example attaches an email and then extracts it back into its own object.

Background: When a message forwards another email as an attachment, that nested message is a complete email in its own right. GetAttachedEmail turns it back into a fully navigable Email object so you can read its subject, sender, body, and even its own attachments — essential for processing forwarded mail, or for tools that unpack reported spam/phishing to examine the original.

Chilkat Perl Downloads

Download Chilkat for Perl

Perl

use chilkat();

$success = 0;

#  Demonstrates the GetAttachedEmail method, which copies the Nth embedded message/rfc822
#  MIME part into another Email object.  The index is zero-based.

#  Build an inner email and attach it to an outer email.
$innerEmail = chilkat::CkEmail->new();
$innerEmail->put_Subject("Embedded message");
$innerEmail->put_From('alice@example.com');
$innerEmail->put_Body("This is the embedded message.");

$email = chilkat::CkEmail->new();
$email->put_Subject("Has an attached message");
$success = $email->AttachEmail($innerEmail);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

#  Copy the first embedded message (index 0) into its own Email object.
$attached = chilkat::CkEmail->new();
$success = $email->GetAttachedEmail(0,$attached);
if ($success == 0) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

print "Attached email subject: " . $attached->subject() . "\r\n";
print "Attached email from: " . $attached->ck_from() . "\r\n";