Delphi ActiveX

Save All MIME Attachments to Files

Demonstrates the Chilkat Mime.PartsToFiles method, which recursively traverses the MIME tree and saves each part having a nonempty filename parameter to a directory. The first argument is the destination directory and the second is a StringTable that receives the saved filenames.

Note: The file paths are relative to the application's current working directory. Absolute paths may also be used. Supply the paths appropriate to your own environment.

Background: This extracts every named attachment from a message in one call, walking the whole tree so it finds attachments nested inside multipart containers. It saves only parts that declare a filename — inline body parts without one are skipped — and reports what it wrote via the StringTable, which is handy for logging or follow-up processing. The destination directory must already exist.

Chilkat Delphi ActiveX Downloads

Download Chilkat for Delphi ActiveX

Delphi ActiveX

var
success: Integer;
mime: TChilkatMime;
savedFiles: TChilkatStringTable;
n: Integer;
i: Integer;
name: WideString;

begin
success := 0;

mime := TChilkatMime.Create(Self);
success := mime.LoadMimeFile('qa_data/multipart_message.eml');
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

//  Recursively traverse the MIME tree and save each part that has a nonempty "filename" parameter
//  to a directory.  The 1st argument is the destination directory and the 2nd is a StringTable
//  that receives the saved filenames.
savedFiles := TChilkatStringTable.Create(Self);
success := mime.PartsToFiles('qa_output/attachments',savedFiles.ControlInterface);
if (success = 0) then
  begin
    Memo1.Lines.Add(mime.LastErrorText);
    Exit;
  end;

n := savedFiles.Count;
Memo1.Lines.Add('Saved ' + IntToStr(n) + ' files:');

for i := 0 to n - 1 do
  begin
    name := savedFiles.StringAt(i);
    if (savedFiles.LastMethodSuccess = 0) then
      begin
        Memo1.Lines.Add(savedFiles.LastErrorText);
        Exit;
      end;
    Memo1.Lines.Add(name);
  end;