Indy: EML-Datei der kompletten E-Mail?

[hoika]

Hallo,
ich benötige für die Fehlerprüfung einer E-Mail mit Anhängen die komplette E-Mail.
Leider bekommen ich per TIdMessage.SaveToFile nur den oberen Bereich.

Weiß jemand, wie ich den kompletten E-Mail-Inhalt bekomme?

[Delphi.Narium]

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.

[hoika]

Hallo,
ja, so in etwa.
Dann könnte ich die zusammenfassen.
Ich probiere es aus.

Danke.