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

<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 imap.LastErrorText & "<br>"

End If

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

End If

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

End If

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

End If

'  After selecting the mailbox. the total number of emails
'  is immediately available:
totalNum = imap.NumMessages
Response.Write totalNum & "<br>"

'  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
    Response.Write imap.LastErrorText & "<br>"

End If

numUnseen = messageSet.Count
Response.Write numUnseen & "<br>"

Response.Write "UIDs ----" & "<br>"

'  Display the UIDs

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

'  Disconnect from the IMAP server.
imap.Disconnect 


%>
</body>
</html>

Need a specific example? Send a request to support@chilkatsoft.com