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)

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
set imap = Server.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
    Response.Write "<pre>" & Server.HTMLEncode(imap.LastErrorText) & "</pre>"

End If

'  Connect to an IMAP server.
success = imap.Connect("mail.chilkatsoft.com")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(imap.LastErrorText) & "</pre>"

End If

'  Login
success = imap.Login("***","***")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(imap.LastErrorText) & "</pre>"

End If

'  Select an IMAP mailbox
success = imap.SelectMailbox("Inbox")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode(imap.LastErrorText) & "</pre>"

End If

'  After selecting the mailbox. the total number of emails
'  is immediately available:
totalNum = imap.NumMessages
Response.Write "<pre>" & Server.HTMLEncode( totalNum) & "</pre>"

'  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
    Response.Write "<pre>" & Server.HTMLEncode(imap.LastErrorText) & "</pre>"

End If

numUnseen = messageSet.Count
Response.Write "<pre>" & Server.HTMLEncode( numUnseen) & "</pre>"

Response.Write "<pre>" & Server.HTMLEncode( "UIDs ----") & "</pre>"

'  Display the UIDs

For i = 0 To messageSet.Count - 1
    msgId = messageSet.GetId(i)
    Response.Write "<pre>" & Server.HTMLEncode( msgId) & "</pre>"
Next

'  Disconnect from the IMAP server.
imap.Disconnect 


%>
</body>
</html>