(Perl) Sorting Email

Demonstrates how to sort an email bundle.

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 requires the Chilkat API to have been previously unlocked.
# See Global Unlock Sample for sample code.

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

# Connect to the 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;

# Pass any of the above strings here to test a search:
# messageSet is a MessageSet
$messageSet = $imap->Search("ALL",$fetchUids);
if ($imap->get_LastMethodSuccess() == 0) {
    print $imap->lastErrorText() . "\r\n";
    exit;
}

# Fetch the email headers into a bundle object:
# bundle is a EmailBundle
$bundle = $imap->FetchHeaders($messageSet);
if ($imap->get_LastMethodSuccess() == 0) {

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

# Sort the email bundle by date, recipient, sender, or subject:
$ascending = 1;
$bundle->SortByDate($ascending);

# To sort by recipient, sender, or subject, call 
# SortBySender, SortByRecipient, or SortBySubject.

# Display the Subject and From of each email.
$i = 0;
while ($i < $bundle->get_MessageCount()) {

    # email is a Email
    $email = $bundle->GetEmail($i);

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

    $i = $i + 1;
}

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