Process Bounced Email in IMAP

Reads an IMAP mailbox and determines which emails are bounces.

Download Chilkat IMAP ActiveX

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

...

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

begin
imap := TChilkatImap.Create(Self);
bounce := TChilkatBounce.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);
    Exit;
  end;

success := bounce.UnlockComponent('Anything for 30-day trial');
if (success <> 1) then
  begin
    ShowMessage(bounce.LastErrorText);
    Exit;
  end;

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

//  Login
success := imap.Login('admin@chilkatsoft.com','*myPassword5*');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Select an IMAP mailbox
success := imap.SelectMailbox('INBOX.bounceSamples');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  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);
    Exit;
  end;

//  Fetch the emails into a bundle object:

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

    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Loop over the bundle and display the FROM and SUBJECT of each.

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

    email := bundle.GetEmail(i) As CHILKATIMAPLib_TLB.IChilkatEmail2;

    bounce.ExamineMail(email As CHILKATBOUNCELib_TLB.IChilkatEmail2);

    Memo1.Lines.Add('Subject: ' + email.Subject);
    Memo1.Lines.Add('Bounce Type = ' + IntToStr(bounce.BounceType)
         + ', email address = ' + bounce.BounceAddress);

  end;

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


end;