Delphi DLL

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 DLL Downloads

Download Chilkat for Delphi DLL

Delphi DLL

var
success: Boolean;
mime: HCkMime;
savedFiles: HCkStringTable;
n: Integer;
i: Integer;
name: PWideChar;

begin
success := False;

mime := CkMime_Create();
success := CkMime_LoadMimeFile(mime,'qa_data/multipart_message.eml');
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    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 := CkStringTable_Create();
success := CkMime_PartsToFiles(mime,'qa_output/attachments',savedFiles);
if (success = False) then
  begin
    Memo1.Lines.Add(CkMime__lastErrorText(mime));
    Exit;
  end;

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

for i := 0 to n - 1 do
  begin
    name := CkStringTable__stringAt(savedFiles,i);
    if (CkStringTable_getLastMethodSuccess(savedFiles) = False) then
      begin
        Memo1.Lines.Add(CkStringTable__lastErrorText(savedFiles));
        Exit;
      end;
    Memo1.Lines.Add(name);
  end;

CkMime_Dispose(mime);
CkStringTable_Dispose(savedFiles);