Delete Email Individually (One at a time) from an IMAP Mailbox

Downloads email from an IMAP mailbox and deletes emails individually (one by one).

Download Chilkat IMAP ActiveX

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

...

procedure TForm1.Button1Click(Sender: TObject);
var
imap: TChilkatImap;
success: Integer;
messageSet: CHILKATIMAPLib_TLB.IMessageSet;
fetchUids: Integer;
bundle: CHILKATIMAPLib_TLB.IChilkatEmailBundle2;
i: Integer;
email: CHILKATIMAPLib_TLB.IChilkatEmail2;

begin
imap := TChilkatImap.Create(Self);

//  Anything unlocks the component and begins a fully-functional 30-day trial.
success := imap.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);

  end;

//  Connect to an IMAP server.
success := imap.Connect('mail.chilkatsoft.com');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);

  end;

//  Login
success := imap.Login('myLogin','myPassword');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);

  end;

//  Select an IMAP mailbox
success := imap.SelectMailbox('Inbox');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);

  end;

//  We can choose to fetch UIDs or sequence numbers.
fetchUids := 1;
//  Get the message IDs of all the emails in the mailbox
messageSet := imap.Search('ALL',fetchUids);
if (messageSet = nil ) then
  begin
    ShowMessage(imap.LastErrorText);

  end;

//  Fetch the emails into a bundle object:

bundle := imap.FetchBundle(messageSet);
if (bundle = nil ) then
  begin

    ShowMessage(imap.LastErrorText);

  end;

//  To mark a complete set of emails for deletion, call SetFlags:
success := imap.SetFlags(messageSet,'Deleted',1);
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);

  end;

//  Messages can also be marked for deletion individually:
//  Loop over the bundle and mark each message for deletion.

for i := 0 to bundle.MessageCount - 1 do
  begin

    email := bundle.GetEmail(i);
    Memo1.Lines.Add(email.From);
    Memo1.Lines.Add(email.Subject);

    //  To delete this email, set the "Deleted" flag to 1.
    //  The email is not actually deleted until Expunge or
    //  ExpungeAndClose is called.
    success := imap.SetMailFlag(email,'Deleted',1);
    if (success <> 1) then
      begin
        ShowMessage(imap.LastErrorText);

      end;

    Memo1.Lines.Add('--');

  end;

success := imap.ExpungeAndClose();
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);

  end;

//  Disconnect from the IMAP server.
imap.Disconnect();


end;