(Perl) Save Email Attachments to Filesystem

Saves email attachments to a directory.

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

use chilkat();

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