Access Attached Message (Embedded Email)

How to access an email embedded within another email (i.e. an attached message).

Download Chilkat Perl Module

use chilkat;

$email = new chilkat::CkEmail();

#  Load an email from a .eml

$success = $email->LoadEml("embeddedEmail.eml");
if ($success != 1) {
    print $email->lastErrorText() . "\n";
    exit;
}

#  Display how many attached emails are embedded within
#  this one:

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

#  Get the 1st attached message.

$email2 = $email->GetAttachedMessage(0);
if (!($email2 eq null )) {

    #  Display the subject, From, and a header field...
    print $email2->subject() . "\r\n";
    print $email2->ck_from() . "\r\n";
    print $email2->getHeaderField("X-SOMETHING") . "\r\n";
}