Reading Unread POP3 Email

The POP3 protocol does not provide the ability to ask the server which emails are "unread". Furthermore, a pure POP3 server does not even keep this information. Some servers, such as Exchange Server, expose both POP3 and IMAP interfaces. In these cases, information about read/unread status exists on the server, but it is only available via the IMAP protocol. Email clients such as Outlook and Thunderbird keep read/unread information on the client computer. This example demonstrates how UIDLs can be saved to track and read "unread" email.

Download Chilkat Email ActiveX

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
'  The mailman object is used for receiving (POP3)
'  and sending (SMTP) email.
set mailman = Server.CreateObject("Chilkat.MailMan2")

'  Any string argument automatically begins the 30-day trial.
success = mailman.UnlockComponent("30-day trial")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode("Component unlock failed") & "</pre>"

End If

'  Set the POP3 server's hostname
mailman.MailHost = "mail.chilkatsoft.com"

'  Set the POP3 login/password.
mailman.PopUsername = "***"
mailman.PopPassword = "***"

'  You may keep a list of already-seen UIDLs in a text file:
'  If this is the first time you're running this example,
'  create an empty text file named "seenUidls.txt"
set saSeenUidls = Server.CreateObject("Chilkat.CkStringArray")
success = saSeenUidls.LoadFromFile("seenUidls.txt")
If (success <> 1) Then
    Response.Write "<pre>" & Server.HTMLEncode("failed to load seenUidls.txt") & "</pre>"

End If

'  Get the complete list of UIDLs on the mail server.

' saUidls is a Chilkat.CkStringArray
Set saUidls = mailman.GetUidls()

If (saUidls Is Nothing ) Then
    Response.Write "<pre>" & Server.HTMLEncode(mailman.LastErrorText) & "</pre>"

End If

'  Create a new string array object (it's an object, not an actual array)
'  and add the UIDLs from saUidls that aren't already seen.
set saUnseenUidls = Server.CreateObject("Chilkat.CkStringArray")

n = saUidls.Count
For i = 0 To n - 1
    If (saSeenUidls.Contains(saUidls.GetString(i)) <> 1) Then
        saUnseenUidls.Append saUidls.GetString(i)
    End If

Next

If (saUnseenUidls.Count = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode("No unseen emails!") & "</pre>"

End If

'  Download in full the unseen emails:

' bundle is a Chilkat.EmailBundle2
Set bundle = mailman.FetchMultiple(saUnseenUidls)
If (bundle Is Nothing ) Then
    Response.Write "<pre>" & Server.HTMLEncode(mailman.LastErrorText) & "</pre>"

End If

For i = 0 To bundle.MessageCount - 1
    ' email is a Chilkat.Email2
    Set email = bundle.GetEmail(i)
    Response.Write "<pre>" & Server.HTMLEncode( email.From) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( email.Subject) & "</pre>"
    Response.Write "<pre>" & Server.HTMLEncode( "----") & "</pre>"

Next

'  Save saUidls to "seenUidls.txt"
saUidls.SaveToFile "seenUidls.txt"


%>
</body>
</html>