Classic ASP

Fetch a Set of POP3 Messages by UIDL

Demonstrates the Chilkat MailMan.FetchUidlSet method, which retrieves the messages whose UIDLs are listed in a StringTable and appends them to an EmailBundle. The arguments are the UIDL StringTable, headersOnly, numBodyLines, and the EmailBundle. This example fetches two specific messages by UIDL.

Background: This is the efficient way to download a selected subset of a mailbox in one call — exactly the pattern for an incremental client: list the mailbox UIDLs, compare against the ones you've already stored, and fetch only the new UIDLs as a set. It avoids re-downloading messages you already have while still pulling everything new in a single operation.

Chilkat Classic ASP Downloads

Download Chilkat for Classic ASP

Classic ASP

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
success = 0

'  Demonstrates the MailMan.FetchUidlSet method, which retrieves the messages whose UIDLs are
'  listed in a StringTable and appends them to an EmailBundle.  The arguments are the UIDL
'  StringTable, headersOnly, numBodyLines, and the EmailBundle.  The messages remain on the
'  server.

set mailman = Server.CreateObject("Chilkat.MailMan")

'  Configure the POP3 server connection.
mailman.MailHost = "pop.example.com"
mailman.MailPort = 995
mailman.PopSsl = 1
mailman.PopUsername = "user@example.com"
mailman.PopPassword = "myPassword"

'  Build the set of UIDLs to fetch.
set uidls = Server.CreateObject("Chilkat.StringTable")
success = uidls.Append("0000000123abcdef")
success = uidls.Append("0000000124abcdef")

'  Fetch the listed messages (full bodies) into a bundle.
'  headersOnly=0 (fetch the entire message).
'  Note: numBodyLines only applies when headersOnly is 1 (it sets how many lines of the
'  body to include along with the headers).  When headersOnly is 0, the entire message
'  is fetched and numBodyLines is ignored.
set bundle = Server.CreateObject("Chilkat.EmailBundle")

success = mailman.FetchUidlSet(uidls,0,0,bundle)
If (success = 0) Then
    Response.Write "<pre>" & Server.HTMLEncode( mailman.LastErrorText) & "</pre>"
    Response.End
End If

n = bundle.MessageCount
Response.Write "<pre>" & Server.HTMLEncode( "Fetched " & n & " messages.") & "</pre>"

set email = Server.CreateObject("Chilkat.Email")

For i = 0 To n - 1
    success = bundle.EmailAt(i,email)
    Response.Write "<pre>" & Server.HTMLEncode( email.Subject) & "</pre>"
Next

'  Note: Explicitly connecting/authenticating is optional.  Chilkat MailMan automatically
'  connects and authenticates -- using the property settings above -- whenever a server
'  operation requires it.  Calling the explicit connect/authenticate methods can still be
'  helpful to determine whether a failure occurs while connecting or while authenticating.

%>
</body>
</html>