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.

var
success: Integer;
mailman: TChilkatMailMan;
bundle: TChilkatEmailBundle;
n: Integer;
email: TChilkatEmail;
i: Integer;

begin
success := 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.

mailman := TChilkatMailMan.Create(Self);

//  Configure the POP3 server connection.
mailman.MailHost := 'pop.example.com';
mailman.MailPort := 995;
mailman.PopSsl := 1;
mailman.PopUsername := 'user@example.com';
mailman.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.
bundle := TChilkatEmailBundle.Create(Self);

success := mailman.FetchRange(1,0,0,0,4,bundle.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(mailman.LastErrorText);
    Exit;
  end;

n := bundle.MessageCount;
Memo1.Lines.Add('Fetched ' + IntToStr(n) + ' messages.');

email := TChilkatEmail.Create(Self);

for i := 0 to n - 1 do
  begin
    success := bundle.EmailAt(i,email.ControlInterface);
    Memo1.Lines.Add(email.Subject);
  end;

//  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.