(Perl) Read IMAP Mailbox

Read all emails from an IMAP mailbox.

Chilkat Perl Downloads Perl Module for Windows, Linux, Alpine Linux, MAC OS X, Solaris, FreeBSD, OpenBSD, Raspberry Pi and other single board computers

use chilkat();

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

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

# We can choose to fetch UIDs or sequence numbers.
$fetchUids = 1;
# Get the message IDs of all the emails in the mailbox
# messageSet is a MessageSet
$messageSet = $imap->Search("ALL",$fetchUids);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Fetch the emails into a bundle object:

# bundle is a EmailBundle
$bundle = $imap->FetchBundle($messageSet);
if ($imap->get_LastMethodSuccess() == 0) {

    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Loop over the bundle and display the FROM and SUBJECT of each.
$i = 0;
$numEmails = $bundle->get_MessageCount();
while ($i < $numEmails) {
    # email is a Email
    $email = $bundle->GetEmail($i);
    print $email->ck_from() . "\r\n";
    print $email->subject() . "\r\n";
    print "--" . "\r\n";

    $i = $i + 1;
}

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