(Perl) Add File Attachments to an Email

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

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

use chilkat();

$email = chilkat::CkEmail->new();

$email->put_Subject("This is a test");
$email->put_Body("This is a test");
$email->put_From('support@chilkatsoft.com');
$success = $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 ($email->get_LastMethodSuccess() != 1) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

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

$contentType = $email->addFileAttachment("something.zip");
if ($email->get_LastMethodSuccess() != 1) {
    print $email->lastErrorText() . "\r\n";
    exit;
}

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

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