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

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set imap = CreateObject("Chilkat.Imap")

'  Anything unlocks the component and begins a fully-functional 30-day trial.
success = imap.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

'  Connect to an IMAP server.
success = imap.Connect("mail.chilkatsoft.com")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

'  Login
success = imap.Login("***","***")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

'  Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If (success <> 1) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

'  After selecting the mailbox. the total number of emails
'  is immediately available:
totalNum = imap.NumMessages
outFile.WriteLine(totalNum)

'  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

Set messageSet = imap.Search("UNSEEN",fetchUids)
If (messageSet Is Nothing ) Then
    MsgBox imap.LastErrorText
    WScript.Quit
End If

numUnseen = messageSet.Count
outFile.WriteLine(numUnseen)

outFile.WriteLine("UIDs ----")

'  Display the UIDs

For i = 0 To messageSet.Count - 1
    msgId = messageSet.GetId(i)
    outFile.WriteLine(msgId)
Next

'  Disconnect from the IMAP server.
imap.Disconnect 


outFile.Close