Indy POP3 Mail abspeichern

[smash]

Hallo,

ich würde gerne eine Mail, welche ich empfange abspeichern.
Aber: Nicht mit dem ganzen Header- Kram, sondern nur das, was ich hier auch bekomme:

Delphi-Quellcode:

for k := 0 to Msg.MessageParts.Count-1 do
        begin
          if Msg.MessageParts.Items[k] is TIdText then
          begin
            Memo1.Clear;
            Memo1.Lines.AddStrings(TIdText(Msg.MessageParts.Items[k]).Body);
          end;
        end;

Genau diesen Inhalt möchte ich auch in einer TXT- Datei haben.
Ich schaffe es aber einfach nicht!

Danke für eure Hilfe!

Liebe Grüße

[nailor]

du könntest die "Strings"-Struktur in einzelne Zeilen zerhacken und dann per WriteLN in eine Textdatei kloppen.

[Igotcha]

Zitat von smash:

Hallo,
Genau diesen Inhalt möchte ich auch in einer TXT- Datei haben.
Ich schaffe es aber einfach nicht!

Und warum benutzt Du nicht die "SaveToFile"-Methode des Memos, oder kann ich Dir nicht ganz folgen?

Gruß Igotcha

[smash]

Zitat von Igotcha:

Und warum benutzt Du nicht die "SaveToFile"-Methode des Memos, oder kann ich Dir nicht ganz folgen?
Gruß Igotcha

Vergessen zu erwähnen:
Es gibt normalerweise überhaupt kein Memo- Feld!
Ich möchte die Mails gleich abspeichern.

[scp]

Wie wärs mit
TIdText(Msg.MessageParts.Items[k]).Body.SaveToFile('blabla.txt'); oder

Delphi-Quellcode:

sl := TStringList.Create;
try
  sl.AddStrings(TIdText(Msg.MessageParts.Items[k]).Body);
  sl.SaveToFile('blabla.txt');
finally
  sl.Free;
end;