Delphi ActiveX

Get IMAP Attachment Filenames

Demonstrates the Chilkat Imap.GetMailAttachFilename method, which returns the filename of an attachment. The first argument is the Email and the second is the zero-based attachment index. This example fetches only the message headers and lists the attachment filenames.

Background: This method reads the filename from ckx-imap-* metadata, so it works on a header-only email even though the attachment bodies have not been downloaded. That is exactly what a mail client needs to render the paperclip list — the names of the attached files — before the user decides to download any of them.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
imap: TChilkatImap;
headersOnly: Integer;
useUid: Integer;
seqNum: Integer;
email: TChilkatEmail;
numAttach: Integer;
i: Integer;
fname: WideString;

begin
success := 0;

//  Demonstrates the Imap.GetMailAttachFilename method, which returns the filename of an
//  attachment.  The 1st argument is the Email and the 2nd is the zero-based attachment index.

imap := TChilkatImap.Create(Self);

imap.Ssl := 1;
imap.Port := 993;

success := imap.Connect('imap.example.com');
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;
success := imap.Login('user@example.com','myPassword');
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

success := imap.SelectMailbox('Inbox');
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

//  Fetch only the message headers.  Attachment bodies are NOT downloaded, but the ckx-imap-*
//  metadata describing the attachments is present, so the attachment info methods still work.
headersOnly := 1;
useUid := 0;
seqNum := 1;
email := TChilkatEmail.Create(Self);
success := imap.FetchEmail(headersOnly,seqNum,useUid,email.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;

//  Loop over the attachments and print each filename.
numAttach := imap.GetMailNumAttach(email.ControlInterface);
Memo1.Lines.Add('Attachments: ' + IntToStr(numAttach));

for i := 0 to numAttach - 1 do
  begin
    //  GetMailAttachFilename returns a string, so assign it to a string variable.
    fname := imap.GetMailAttachFilename(email.ControlInterface,i);
    if (imap.LastMethodSuccess = 0) then
      begin
        Memo1.Lines.Add(imap.LastErrorText);
        Exit;
      end;
    Memo1.Lines.Add(fname);
  end;

success := imap.Disconnect();
if (success = 0) then
  begin
    Memo1.Lines.Add(imap.LastErrorText);
    Exit;
  end;