Determine the Number of Unseen Email Messages

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

Download Chilkat IMAP ActiveX

LOCAL loImap
LOCAL lnSuccess
LOCAL lnTotalNum
LOCAL loMessageSet
LOCAL lnFetchUids
LOCAL lnNumUnseen
LOCAL i
LOCAL lnMsgId

loImap = CreateObject('Chilkat.Imap')

*  Anything unlocks the component and begins a fully-functional 30-day trial.
lnSuccess = loImap.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Connect to an IMAP server.
lnSuccess = loImap.Connect("mail.chilkatsoft.com")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Login
lnSuccess = loImap.Login("***","***")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  Select an IMAP mailbox
lnSuccess = loImap.SelectMailbox("Inbox")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

*  After selecting the mailbox. the total number of emails
*  is immediately available:

lnTotalNum = loImap.NumMessages
? STR(lnTotalNum)

*  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.

lnFetchUids = 1

loMessageSet = loImap.Search("UNSEEN",lnFetchUids)
IF (loMessageSet = NULL ) THEN
    =MESSAGEBOX(loImap.LastErrorText)
    QUIT
ENDIF

lnNumUnseen = loMessageSet.Count
? STR(lnNumUnseen)

? "UIDs ----"

*  Display the UIDs

FOR i = 0 TO loMessageSet.Count - 1
    lnMsgId = loMessageSet.GetId(i)
    ? STR(lnMsgId)
NEXT

*  Disconnect from the IMAP server.
loImap.Disconnect()

RELEASE loMessageSet