Perl

IMAP Download All Email One at a Time

Demonstrates how to download every email in an IMAP mailbox one at a time as a MIME string or as an email object. (The MIME contains the full contents of the email including all attachments.) Perl

use chilkat();

$success = 0;

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

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

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

# Once the mailbox is selected, the NumMessages property
# will contain the number of messages in the mailbox.
# You may loop from 1 to NumMessages to
# fetch each message by sequence number.

$bUid = 0;

$n = $imap->get_NumMessages();
for ($i = 1; $i <= $n; $i++) {

    # Download the email by sequence number.
    $mimeStr = $imap->fetchSingleAsMime($i,$bUid);

    # ... your application may process each MIME string...
}

# An alternative is to download each email in the form of an
# email object, like this:
$email = chilkat::CkEmail->new();
for ($i = 1; $i <= $n; $i++) {

    # Download the email by sequence number.
    $success = $imap->FetchEmail(0,$i,$bUid,$email);

    # ... your application may process the email object...

}

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