Delete All Email in a POP3 Mailbox

Delete all email in a POP3 mailbox.

Download Chilkat Email ActiveX for POP3 / SMTP

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
mailman: TChilkatMailMan2;
success: Integer;
sa: CHILKATUTILLib_TLB.ICkStringArray;

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 := '****';

//  Make sure the ImmediateDelete property is set (this is the default)
//  If ImmediateDelete is not set, messages marked for deletion
//  by the Delete* methods will not be deleted until the POP3
//  connection is closed by calling Pop3EndSession.
mailman.ImmediateDelete := 1;

//  First, get all the UIDLs.
sa := mailman.GetUidls() as CHILKATUTILLib_TLB.ICkStringArray;

//  Next, delete them all.
success := mailman.DeleteMultiple(sa);
if (success <> 1) then
  begin
    ShowMessage(mailman.LastErrorText);
  end;

//  We're done with the POP3 session, so it doesn't hurt to call this...
mailman.Pop3EndSession();
end;