Save Email Attachments to Filesystem Directory

Saves email attachments to a directory.

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

# If OverwriteExisting is turned on, files with the same
# name are overwritten.  If turned off, new/unique filenames
# are automatically generated.  The filenames actually saved
# are accessible via the GetAttachmentFilename method.
$email->put_OverwriteExisting(1);

# Save all attachments to the "myAttachments" subdirectory
# found under the calling process's current working directory.
# This directory is automatically created if it does not already
# exist.
$success = $email->SaveAllAttachments("myAttachments");
if ($success != 1) {
    print $email->lastErrorText() . "\n";
    exit;
}

# List the attachment filenames:

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