Perl

Scan for Emails with Attachments and Save Attachments to Files

Scan for emails with attachments and save attachments. Perl

use chilkat();

$success = 0;

# 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.example.com");
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

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

# Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success == 0) {
    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 = chilkat::CkMessageSet->new();
$success = $imap->QueryMbx("ALL",$fetchUids,$messageSet);
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Fetch the email headers into a bundle object:
$bundle = chilkat::CkEmailBundle->new();
$headersOnly = 1;
$success = $imap->FetchMsgSet($headersOnly,$messageSet,$bundle);
if ($success == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Scan for emails with attachments, and save the attachments
# to a sub-directory.
$fullEmail = chilkat::CkEmail->new();
$emailHeader = chilkat::CkEmail->new();
$i = 0;
while ($i < $bundle->get_MessageCount()) {
    # The bundle contains email headers..
    $bundle->EmailAt($i,$emailHeader);

    # Does this email have attachments?
    # Use GetMailNumAttach because the attachments
    # are not actually in the email object because
    # we only downloaded headers.
    $numAttach = $imap->GetMailNumAttach($emailHeader);

    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.

        # 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 = $emailHeader->getHeaderField("ckx-imap-uid");
        $uid = $uidStr;

        $success = $imap->FetchEmail(0,$uid,1,$fullEmail);
        if ($success == 0) {
            print $imap->lastErrorText() . "\r\n";
            exit;
        }

        $success = $fullEmail->SaveAllAttachments("attachmentsDir");

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

    }

    $i = $i + 1;
}

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