Indy Pop3 - mails herunterladen !

[agm65]

guten abend leute,
ich möchte mit meinem indy pop3 client emails runterladen und als txt files oder eml files speichern ...

hat einer dazu nen source ?
also ich lade meine mails in eine listviw aber damit sind sie ja noch nicht gepsiechert ?

Code:

  index : integer;
  li    : TListItem;
begin
   for index := 1 to IdPOP31.CheckMessages do
    begin
     IdPOP31.Retrieve(index,idMessage1);
     li         := ListView1.Items.Add;
     li.Caption := IdMessage1.From.Text;
     li.SubItems.Add(IdMessage1.Subject);
     li.SubItems.Add(DateToStr(IdMessage1.Date));
     idMessage1.Clear;
    end;
  IdPOP31.Disconnect;

[JasonDX]

Mit der Listview ist die Datei nur im RAM. Wenn du sie auf die Festplatte legen möchtest gibts 2 Möglichkeiten:

1. Es gibt eine Methode SaveToFile der Klasse TIDMessage
2. Du speicherst den Inhalt der Listview. Da helfen dir Listview speichern und Collections(eine elegante Methode, das zu speichern)

Wenn du die SaveToFile-Methode nimmst, wird nicht nur der Absender, Titel und Text gespeichert, sondern etwas mehr.

[agm65]

nein das geht nicht ....in der listview wird komischer weise nicht der email inhalt gespeichert sondern nur der name der mail...

gibt es keine idmessage.savetofile funktion ?

[Die Muhkuh]

Zitat:

Zitat von agm65

nein das geht nicht ....in der listview wird komischer weise nicht der email inhalt gespeichert sondern nur der name der mail...

gibt es keine idmessage.savetofile funktion ?

Schau doch einfach ob es das gibt ;)

Mike hat es ja eh schon geschrieben, dass es eine gibt ;)

[agm65]

ja die gibts ...aber wie jetzt damit arbeiten ? habe einiges ausprobiert aber ging alles nicht....
thx

[JasonDX]

TIDMessage Gibt aufschluss, wie die Methode funktioniert.
(Wer OH lesen kann, ist klar im Vorteil :zwinker: )

Eigentlich ist sie relativ einfach
IDMessage1.SaveToFile('EMail1.eml');
Klarerweise musst du das vor dem IDMessage1.Clear machen

Zudem wär ganz nützlich zu wissen, WAS genau nicht ging/geht

[agm65]

und wo gebe ich den index wert der mail an ?
so zieht er mir ja nur 1ne oder ?

[JasonDX]

Zitat:

Zitat von agm65

Delphi-Quellcode:

  index : integer;
begin
   for index := 1 to IdPOP31.CheckMessages do
    begin
     IdPOP31.Retrieve(index,idMessage1);
//...
    end;

Durch die For-schleife dürfte er alle Mails runterladen :gruebel:

[agm65]

und jetzt noch das saveto file unterbingen ;)

[JasonDX]

Zitat:

Zitat von agm65

und jetzt noch das saveto file unterbingen ;)

Zitat:

Zitat von Chimaira

Klarerweise musst du das vor dem IDMessage1.Clear machen

Also in der Schleife vor dem Clear ;)
(und logisch nach dem Retrieve)