Grob ungefähr sowas?
Delphi-Quellcode:
var
Msg : TIdMessage;
...
Msg.SaveToFile('Email.eml');
for i := 0 to Msg.MessageParts.Items.Count - 1 do begin
TIdAttachment(Msg.MessageParts.Items[i]).SaveToFile(TIdAttachment(Msg.MessageParts.Items[i]).FileName);
end;
...
D. h.: Du bekommst eine Datei für den Inhalt der EMail plus je Anhang eine weitere Datei.