Add File Attachments to an Email

Demonstrates how to add one or more file attachments to an email.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

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("Chilkat Admin",'admin@chilkatsoft.com');

#  To add file attachments to an email, call AddFileAttachment
#  once for each file to be attached.  The method returns
#  the content-type of the attachment if successful, otherwise
#  returns cknull

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

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

$contentType = $email->addFileAttachment("something.zip");
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";