Perl

Save Email Attachments to Filesystem

Saves email attachments to a directory. Perl

use chilkat();

$success = 0;

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

#  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() . "\r\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() . "\r\n";
    exit;
}

#  List the attachment filenames:

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