(Perl) Scan for Emails with Attachments and Save Attachments to Files

Scan for emails with attachments and save attachments.

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

use chilkat();

# This example requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

$imap = chilkat::CkImap->new();

# Connect to an IMAP server.
# Use TLS
$imap->put_Ssl(1);
$imap->put_Port(993);
$success = $imap->Connect("imap.someMailServer.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Login
$success = $imap->Login("myLogin","myPassword");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# We can choose to fetch UIDs or sequence numbers.
$fetchUids = 1;

# Get the message IDs of all the emails in the mailbox
# messageSet is a MessageSet
$messageSet = $imap->Search("ALL",$fetchUids);
if ($imap->get_LastMethodSuccess() != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Fetch the email headers into a bundle object:

# bundle is a EmailBundle
$bundle = $imap->FetchHeaders($messageSet);
if ($imap->get_LastMethodSuccess() != 1) {

    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Scan for emails with attachments, and save the attachments
# to a sub-directory.

for ($i = 0; $i <= $bundle->get_MessageCount() - 1; $i++) {

    # email is a Email
    $email = $bundle->GetEmail($i);

    # Does this email have attachments?
    # Use GetMailNumAttach because the attachments
    # are not actually in the email object because
    # we only downloaded headers.
    # (Had we downloaded the full emails by
    # calling mailman.FetchBundle, we could look
    # at the email object's NumAttachments property.)
    $numAttach = $imap->GetMailNumAttach($email);

    if ($numAttach > 0) {
        # Download the entire email and save the
        # attachments. (Remember, we 
        # need to download the entire email because
        # only the headers were previously downloaded.
        # If the entire emails were downloaded by
        # calling FetchBundle instead of FetchHeaders,
        # this would not be necessary.

        # The ckx-imap-uid header field is added when
        # headers are downloaded.  This makes it possible
        # to get the UID from the email object.
        $uidStr = $email->getHeaderField("ckx-imap-uid");
        $uid = $uidStr;

        # fullEmail is a Email
        $fullEmail = $imap->FetchSingle($uid,1);
        if ($imap->get_LastMethodSuccess() == 1) {
            $success = $fullEmail->SaveAllAttachments("attachmentsDir");

        }

        for ($j = 0; $j <= $numAttach - 1; $j++) {
            $filename = $imap->getMailAttachFilename($email,$j);
            print $filename . "\r\n";
        }

    }

}

# Disconnect from the IMAP server.
$success = $imap->Disconnect();