(Perl) Attach Email as message/rfc822 sub-part to an Email

Demonstrates how to add attach a message/rfc822 email to another email.

Chilkat Perl Downloads Perl Module for Windows, MacOS, Linux, Alpine Linux

use chilkat();

# In this example, we'll attach an email loaded from a .eml file to a new email.

$emlBytes = chilkat::CkByteData->new();

$fac = chilkat::CkFileAccess->new();
$success = $fac->ReadEntireFile("qa_data/eml/simple.eml",$emlBytes);

$email = chilkat::CkEmail->new();
$email->put_Subject("This is a test email with an attached email.");
$email->put_Body("Test with attached email.");
$email->AddTo("Joe",'joe@example.com');
$email->put_From('mary@example.com');

$success = $email->AttachMessage($emlBytes);

print $email->getMime() . "\r\n";

# ----------------------------------------------------------------------
# Alternatively, we could do this:
$emailToBeAttached = chilkat::CkEmail->new();
$success = $emailToBeAttached->LoadEml("qa_data/eml/simple.eml");

$email2 = chilkat::CkEmail->new();
$email2->put_Subject("This is a test email with an attached email.");
$email2->put_Body("Test with attached email.");
$email2->AddTo("Joe",'joe@example.com');
$email2->put_From('mary@example.com');

$emlBytes2 = chilkat::CkByteData->new();
$success = $emailToBeAttached->GetMimeBinary($emlBytes2);
$success = $email2->AttachMessage($emlBytes2);

print "----" . "\r\n";

print $email2->getMime() . "\r\n";