Save an Email Attachment using a Specific Filename

Demonstrates how to save an email attachment using a specific filename, regardless of the filename in the email.

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

use chilkat();

#  Create a MailMan or Imap object first for the purpose
#  of unlocking the component. (Only one is necessary)
$mailman = new chilkat::CkMailMan();
$mailman->UnlockComponent("anything for 30-day trial");
$imap = new chilkat::CkImap();
$imap->UnlockComponent("anything for 30-day trial");

$email = new chilkat::CkEmail();

#  Load an email object containing attachments.
#  This .eml can be downloaded from:
#  http://www.example-code.com/testData/HtmlEmail.eml

$success = $email->LoadEml("HtmlEmail.eml");
if ($success != 1) {
    print $email->lastErrorText() . "\n";
    exit;
}

#  List the attachment filenames:
#  This email has two attachments: logo.jpg and faxCover.doc

for ($i = 0; $i <= $email->get_NumAttachments() - 1; $i++) {
    print $email->getAttachmentFilename($i) . "\r\n";
}

#  Let's say we want to save the 1st attachment as "pic.jpg",
#  and the 2nd attachment as "cover.doc".
#  Call SetAttachmentFilename for both:
$email->SetAttachmentFilename(0,"pic.jpg");
$email->SetAttachmentFilename(1,"cover.doc");

#  The SaveAttachedFile method allows you to specify the directory
#  where the attachment is saved.  To save to the current working
#  directory, pass a "." for the directory path.  This code
#  saves each attachment to the current working directory:
$email->SaveAttachedFile(0,".");
$email->SaveAttachedFile(1,".");

#  Alternatively, we could save all the attachments in a single
#  call.  The argument to SaveAllAttachments is the directory
#  path.  In this case, the filenames set by SetAttachmentFilename
#  are used:
$email->SaveAllAttachments("myAttachments");

print "Finished!" . "\n";