Fetch a Range of POP3 Messages

See more POP3 Examples

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.

llSuccess = .F.

//  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("CkMailMan")

//  Configure the POP3 server connection.
loMailman.MailHost = "pop.example.com"
loMailman.MailPort = 995
loMailman.PopSsl = .T.
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=.T., headersOnly=.F. (fetch the entire message).
//  Note: numBodyLines only applies when headersOnly is .T. (it sets how many lines of the
//  body to include along with the headers).  When headersOnly is .F., the entire message
//  is fetched and numBodyLines is ignored.
loBundle = createobject("CkEmailBundle")

llSuccess = loMailman.FetchRange(.T.,.F.,0,0,4,loBundle)
if (llSuccess = .F.) then
    ? loMailman.LastErrorText
    release loMailman
    release loBundle
    return
endif

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

loEmail = createobject("CkEmail")

for i = 0 to n - 1
    llSuccess = 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