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)

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

' messageSet is a Chilkat.MessageSet
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