Xbase++

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 Xbase++ Downloads

Download Chilkat for Xbase++

Xbase++

LOCAL nSuccess
LOCAL oMailman
LOCAL oBundle
LOCAL n
LOCAL oEmail
LOCAL i

nSuccess := 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.

oMailman := CreateObject("Chilkat.MailMan")

//  Configure the POP3 server connection.
oMailman:MailHost := "pop.example.com"
oMailman:MailPort := 995
oMailman:PopSsl := 1
oMailman:PopUsername := "user@example.com"
oMailman: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.
oBundle := CreateObject("Chilkat.EmailBundle")

nSuccess := oMailman:FetchRange(1, 0, 0, 0, 4, oBundle)
IF (nSuccess == 0)
    ? oMailman:LastErrorText
    oMailman:destroy()
    oBundle:destroy()
    RETURN
ENDIF

n := oBundle:MessageCount
? "Fetched " + Str(n) + " messages."

oEmail := CreateObject("Chilkat.Email")

FOR i := 0 TO n - 1
    nSuccess := oBundle:EmailAt(i, oEmail)
    ? oEmail: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.

oMailman:destroy()
oBundle:destroy()
oEmail:destroy()