Sort Email by Date

Read a POP3 mailbox and sort by Date. The POP3 protocol does not provide the ability to download emails within a date range. However, once emails are downloaded, they may be sorted by date using the Chilkat email bundle object.

Download Chilkat Email ActiveX

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATMAILLib2_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
bundle: CHILKATMAILLib2_TLB.IChilkatEmailBundle2;
numBodyLines: Integer;
ascending: Integer;
i: Integer;
email: CHILKATMAILLib2_TLB.IChilkatEmail2;

begin
//  The mailman object is used for receiving (POP3)
//  and sending (SMTP) email.
mailman := TChilkatMailMan2.Create(Self);

//  Any string argument automatically begins the 30-day trial.
success := mailman.UnlockComponent('30-day trial');
if (success <> 1) then
  begin
    ShowMessage('Component unlock failed');

  end;

//  Set the POP3 server's hostname
mailman.MailHost := 'mail.chilkatsoft.com';

//  Set the POP3 login/password.
mailman.PopUsername := 'matt@chilkatsoft.com';
mailman.PopPassword := '****';

//  Copy the all email from the user's POP3 mailbox
//  into a bundle object.  The email remains on the server.
//  You may copy full emails, or headers-only. Call CopyMail
//  to copy full emails.  Call GetAllHeaders to copy email headers.
//  bundle = mailman.CopyMail();
numBodyLines := 1;
bundle := mailman.GetAllHeaders(numBodyLines);

if (bundle = nil ) then
  begin
    ShowMessage(mailman.LastErrorText);

  end;

//  Sort the email in the bundle by date.

ascending := 1;
bundle.SortByDate(ascending);

for i := 0 to bundle.MessageCount - 1 do
  begin
    email := bundle.GetEmail(i);
    Memo1.Lines.Add(email.GetHeaderField('Date'));

  end;


end;