Create Email with File Attachment and Save as .eml

Create email with file attachment and save as .eml.

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

use chilkat;


$email = new chilkat::CkEmail();

$email->put_Subject("This is a test");
$email->put_Body("This is a test");
$email->put_From('support@chilkatsoft.com');
$email->AddTo("Matt",'matt@chilkatsoft.com');

$contentType = $email->addFileAttachment("il1120.pdf");
if ($contentType eq null ) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

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

print "Saved EML!" . "\n";