Perl Examples

ChilkatHOMEAndroid™ASPVisual BasicVB.NETC#iOS (IPhone)Objective-CC++CMFCDelphiFoxProJavaPerl
PHP ExtensionPHP ActiveXPythonPowerShellRubySQL ServerVBScript

Perl Examples

Quick Start
Unicode
Byte Array
Bz2
Certificates
CSV
Email
Encryption
FTP
HTML Conversion
HTTP
IMAP
MHT
MIME
POP3
RSA
S/MIME
Signatures
SMTP
Socket / SSL
Spider
SFTP
SSH Key
SSH
SSH Tunnel
Tar
HTTP Upload
XML
XMP
Zip

More Examples...
String
Amazon S3
Email Object
DKIM / DomainKey
NTLM
FileAccess
RSS
Atom
Self-Extractor
Service
PPMD
Deflate
DH Key Exchange
DSA
Bzip2
LZW

 

 

 

 

 

 

 

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


 

© 2000-2010 Chilkat Software, Inc. All Rights Reserved.