Scan for Emails with Attachments and Save Attachments to Files

Scan for emails with attachments and save attachments.

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: CHILKATMAILLib2_TLB.IChilkatEmail2;
numAttach: Integer;
uidStr: String;
uid: Integer;
fullEmail: CHILKATMAILLib2_TLB.IChilkatEmail2;
j: Integer;
filename: String;

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);
    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('myLogin','myPassword');
if (success <> 1) then
  begin
    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Select an IMAP mailbox
success := imap.SelectMailbox('Inbox');
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 email headers into a bundle object:

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

    ShowMessage(imap.LastErrorText);
    Exit;
  end;

//  Scan for emails with attachments, and save the attachments
//  to a sub-directory.

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

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

    //  Does this email have attachments?
    //  Use GetMailNumAttach because the attachments
    //  are not actually in the email object because
    //  we only downloaded headers.
    //  (Had we downloaded the full emails by
    //  calling mailman.FetchBundle, we could look
    //  at the email object's NumAttachments property.)
    numAttach := imap.GetMailNumAttach(email As CHILKATIMAPLib_TLB.IChilkatEmail2);

    if (numAttach > 0) then
      begin
        //  Download the entire email and save the
        //  attachments. (Remember, we
        //  need to download the entire email because
        //  only the headers were previously downloaded.
        //  If the entire emails were downloaded by
        //  calling FetchBundle instead of FetchHeaders,
        //  this would not be necessary.

        //  The ckx-imap-uid header field is added when
        //  headers are downloaded.  This makes it possible
        //  to get the UID from the email object.
        uidStr := email.GetHeaderField('ckx-imap-uid');
        uid := StrToInt(uidStr);

        fullEmail := imap.FetchSingle(uid,1) As CHILKATMAILLib2_TLB.IChilkatEmail2;
        if (not (fullEmail = nil )) then
          begin
            fullEmail.SaveAllAttachments('attachmentsDir');

          end;

        for j := 0 to numAttach - 1 do
          begin
            filename := imap.GetMailAttachFilename(email As CHILKATIMAPLib_TLB.IChilkatEmail2,j);
            Memo1.Lines.Add(filename);
          end;

      end;

  end;

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


end;