Perl

Add File Attachments to an Email

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

use chilkat();

$success = 0;

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