*.msg Datei in Memo einlesen

[erich.wanker]

Hallo Leute,

ich versuche grad (vergebens) den text einer Email, die ich via Drag&Drop auf dem Desktop ablege, in ein Memo zu laden...

Delphi-Quellcode:

    memo1.Lines.Clear;
    F := TFileStream.Create(aktuelle_datei, fmOpenRead);
    memo1.Lines.LoadFromStream(F);

Die Header-Sonderzeichen sind mir egal, solange der restliche Quelltext lesbar ist..
Die weiteren Schritte, die ich mit dem Text mache sind: if AnsiContainsStr(Memo1.Lines ..
Will nur bestimmte Infos aus meinen Mails automatisch extrahieren ...

Vielen Dank für Hinweise

Erich

Zitat:

The Internet email message format is defined in RFC 5322, with multi-media content attachments being defined in RFC 2045 through RFC 2049

[p80286]

warum machst Du es nicht so:

Delphi-Quellcode:

memo1.Lines.LoadFromFile(MyMailFile);

Gruß
K-H

[Luckie]

Zitat:

Zitat von erich.wanker (Beitrag 1114665)

Die Header-Sonderzeichen sind mir egal, solange der restliche Quelltext lesbar ist..

Sollten da schon welche sein, wird dir der Rest aber nicht mehr im Memo angezeigt, weil dass nach dem ersten Steuerzeichen die Darstellung abbricht.

[erich.wanker]

.. hab was gefunden:

Delphi-Quellcode:

    memo1.Lines.Clear;
    IdMessage1.LoadFromFile(aktuelle_datei);
    memo1.Lines.AddStrings(IdMessage1.Body);

..damit kann ich leben ;-)

gruß
Erich

[zeras]

Zitat:

Zitat von erich.wanker (Beitrag 1114725)

IdMessage1.LoadFromFile(aktuelle_datei);

gruß
Erich

Nur mal so am Rande:
Was ist IdMessage1 für ein Typ?

[jaenicke]

Das kommt wie der Name schon sagt aus den Indy Komponenten. Die Klasse heißt auch direkt TIdMessage wie der Name auch schon sagt. ;-)