(Perl) How to Download Messages in MessageSet One at a Time

If a message set contains a huge number of emails, it's NOT a good idea to try to download all at once into an email bundle using a method such as FetchBundle. It's better to iterate over the messages in the set to download one by one.

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 using TLS.
$imap->put_Ssl(1);
$imap->put_Port(993);
$success = $imap->Connect("imap.example.com");
if ($success != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Authenticate
$success = $imap->Login("email_account_login","email_account_password");
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;
}

# Search for messages and return a set of matching messages.
# (This example will simply search for ALL messages.)
$fetchUids = 1;
# messageSet is a MessageSet
$messageSet = $imap->Search("ALL",$fetchUids);
if ($imap->get_LastMethodSuccess() != 1) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

print "Number of messages = " . $messageSet->get_Count() . "\r\n";

$i = 0;
while ($i < $messageSet->get_Count()) {
    # email is a Email
    $email = $imap->FetchSingle($messageSet->GetId($i),$fetchUids);
    if ($imap->get_LastMethodSuccess() != 1) {
        print $imap->lastErrorText() . "\r\n";

        exit;
    }

    print $email->ck_from() . "; " . $email->subject() . "\r\n";

    $i = $i + 1;
}

print "OK" . "\r\n";