Determine the Number of Unseen Email Messages

Demonstrates how to determine how many unseen messages exist in an email account on an IMAP server.

 Chilkat Perl Module Downloads for Windows, Linux, and MAC OS X

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("***","***");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  Select an IMAP mailbox
$success = $imap->SelectMailbox("Inbox");
if ($success != 1) {
    print $imap->lastErrorText() . "\n";
    exit;
}

#  After selecting the mailbox. the total number of emails
#  is immediately available:
$totalNum = $imap->get_NumMessages();
print $totalNum . "\r\n";

#  To determine the number of unseen messages, a call
#  to Search is required, which returns the set of UIDs
#  of all unseen messages.

#  We can choose to fetch UIDs or sequence numbers.
$fetchUids = 1;

# messageSet is a CkMessageSet
$messageSet = $imap->Search("UNSEEN",$fetchUids);
if ($messageSet eq null ) {
    print $imap->lastErrorText() . "\n";
    exit;
}

$numUnseen = $messageSet->get_Count();
print $numUnseen . "\r\n";

print "UIDs ----" . "\r\n";

#  Display the UIDs

for ($i = 0; $i <= $messageSet->get_Count() - 1; $i++) {
    $msgId = $messageSet->GetId($i);
    print $msgId . "\r\n";
}

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