Visual FoxPro

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 Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL lnSuccess
LOCAL loMailman
LOCAL loUidls
LOCAL loBundle
LOCAL n
LOCAL loEmail
LOCAL i

lnSuccess = 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.

loMailman = CreateObject('Chilkat.MailMan')

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

*  Build the set of UIDLs to fetch.
loUidls = CreateObject('Chilkat.StringTable')
loUidls.Append("0000000123abcdef")
loUidls.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.
loBundle = CreateObject('Chilkat.EmailBundle')

lnSuccess = loMailman.FetchUidlSet(loUidls,0,0,loBundle)
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    RELEASE loUidls
    RELEASE loBundle
    CANCEL
ENDIF

n = loBundle.MessageCount
? "Fetched " + STR(n) + " messages."

loEmail = CreateObject('Chilkat.Email')

FOR i = 0 TO n - 1
    lnSuccess = loBundle.EmailAt(i,loEmail)
    ? loEmail.Subject
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.

RELEASE loMailman
RELEASE loUidls
RELEASE loBundle
RELEASE loEmail