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.)

Chilkat Module for Perl 5.8.*

Chilkat Module for Perl 5.10.*

Chilkat Module for Perl 5.8.* (x64)

Chilkat Module for Perl 5.10.* (x64)

use chilkat;

$imap = new chilkat::CkImap();

#  Anything unlocks the component and begins a fully-functional 30-day trial.
$success = $imap->UnlockComponent("Anything for 30-day trial");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Connect to an IMAP server.
$success = $imap->Connect("mail.chilkatsoft.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

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

#  Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\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:

for ($i = 1; $i <= $n; $i++) {

    #  Download the email by sequence number.
    # email is a CkEmail
    $email = $imap->FetchSingle($i,$bUid);

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

}

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