Visual FoxPro

Fetch a Range of POP3 Messages

Demonstrates the Chilkat MailMan.FetchRange method, which retrieves a range of messages from the POP3 mailbox and appends them to an EmailBundle. The arguments are keepOnServer, headersOnly, numBodyLines, a zero-based inclusive startIndex and endIndex, and the EmailBundle. This example fetches the first five messages.

Background: Fetching a range instead of everything is useful for paging through a large mailbox, or resuming after an interruption — download messages 0–99, then 100–199, and so on. Combined with headersOnly, it lets you build a quick message-list view without pulling full bodies and attachments up front.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

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

lnSuccess = 0

*  Demonstrates the MailMan.FetchRange method, which retrieves a range of messages from the
*  POP3 mailbox and appends them to an EmailBundle.  The arguments are keepOnServer,
*  headersOnly, numBodyLines, startIndex, endIndex, and the EmailBundle.  The indexes are
*  zero-based and inclusive.

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"

*  Fetch the first 5 messages (indexes 0 through 4), full bodies, leaving them on the server.
*  keepOnServer=1, 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.FetchRange(1,0,0,0,4,loBundle)
IF (lnSuccess = 0) THEN
    ? loMailman.LastErrorText
    RELEASE loMailman
    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 loBundle
RELEASE loEmail