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 32-bit Chilkat IMAP ActiveX (.msi)

Download All 32-bit Chilkat ActiveX Components (.zip)

Download All 64-bit Chilkat ActiveX Components (.zip)

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