(Delphi ActiveX) Scan for Emails with Attachments and Save Attachments to Files

Scan for emails with attachments and save attachments.

Chilkat for Delphi Downloads Chilkat ActiveX DLL for Delphi Chilkat non-ActiveX DLL for Delphi * The examples here use the ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Chilkat_TLB;

...

procedure TForm1.Button1Click(Sender: TObject);
var
imap: TChilkatImap;
success: Integer;
messageSet: IMessageSet;
fetchUids: Integer;
bundle: IChilkatEmailBundle;
i: Integer;
email: IChilkatEmail;
numAttach: Integer;
uidStr: WideString;
uid: Integer;
fullEmail: IChilkatEmail;
j: Integer;
filename: WideString;

begin
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

imap := TChilkatImap.Create(Self);

// Connect to an IMAP server.
// Use TLS
imap.Ssl := 1;
imap.Port := 993;
success := imap.Connect('imap.someMailServer.com');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Login
success := imap.Login('myLogin','myPassword');
if (success <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Select an IMAP mailbox
success := imap.SelectMailbox('Inbox');
if (success <> 1) then
  begin
    Memo1.Lines.Add(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 (imap.LastMethodSuccess <> 1) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

// Fetch the email headers into a bundle object:

bundle := imap.FetchHeaders(messageSet);
if (imap.LastMethodSuccess <> 1) then
  begin

    Memo1.Lines.Add(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);

    // 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);

    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);
        if (imap.LastMethodSuccess = 1) then
          begin
            success := fullEmail.SaveAllAttachments('attachmentsDir');

          end;

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

      end;

  end;

// Disconnect from the IMAP server.
success := imap.Disconnect();
end;