Perl Requires Chilkat v11.0.0+

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();