Add File Attachments to an Email

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

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

Chilkat Module for Perl 5.8.* (x64)

Chilkat Module for Perl 5.10.* (x64)

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";