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 .NET for 4.0 Framework

Download Chilkat .NET for 64-bit 4.0 Framework (x64)

Download Chilkat .NET for 2.0 / 3.5 Framework

Download Chilkat .NET for 64-bit 2.0 / 3.5 Framework (x64)

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim imap As New Chilkat.Imap()

Dim success As Boolean

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


'  Connect to an IMAP server.
success = imap.Connect("mail.chilkatsoft.com")
If (success <> true) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


'  Login
success = imap.Login("***","***")
If (success <> true) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


'  Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If (success <> true) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


'  After selecting the mailbox. the total number of emails
'  is immediately available:
Dim totalNum As Long
totalNum = imap.NumMessages
TextBox1.Text = TextBox1.Text & totalNum & vbCrLf

'  To determine the number of unseen messages, a call
'  to Search is required, which returns the set of UIDs
'  of all unseen messages.
Dim messageSet As Chilkat.MessageSet
'  We can choose to fetch UIDs or sequence numbers.
Dim fetchUids As Boolean
fetchUids = true


messageSet = imap.Search("UNSEEN",fetchUids)
If (messageSet Is Nothing ) Then
    MsgBox(imap.LastErrorText)
    Exit Sub
End If


Dim numUnseen As Long
numUnseen = messageSet.Count
TextBox1.Text = TextBox1.Text & numUnseen & vbCrLf

TextBox1.Text = TextBox1.Text & "UIDs ----" & vbCrLf

'  Display the UIDs
Dim i As Long
Dim msgId As Long
For i = 0 To messageSet.Count - 1
    msgId = messageSet.GetId(i)
    TextBox1.Text = TextBox1.Text & msgId & vbCrLf
Next

'  Disconnect from the IMAP server.
imap.Disconnect()