Problem mit email empfang

[Natcree]

Wenn ich auf 1 setzte dann disconnected er nicht

[Natcree]

und nach klaus01 kommte Fehler meldung



kann es hierdrann liegen mailcount:=idpop31.CheckMessages;

[p80286]

Zum einen sind vollständige Sätze kein Fehler, dann fällt es uns etwas einfacher Dein Anliegen zu verstehen.
Und wenn in Sir Rufo schreibt das die Schleife von 1 bis count() läuft, dann sollte es im umgekehrten Fall genauso sein.
Also Z:=count(irgendwas) downto 1 Gruß
K-H

[Klaus01]

Delphi-Quellcode:

if mailcount > 0 then
  begin
    for Index := mailCount downto 1 do  // wie Sir Rufo schon geschrieben hat
      begin
        memo1.Clear;
        edit1.Clear;
        memo2.Clear;
        idmessage1.clear;
        idPOP31.RetrieveHeader(Index, IdMessage1);
        memo1.text := (IdMessage1.From.Text);;
        IdPOP31.Retrieve(index,idMessage1);
        edit1.text := IdMessage1.Subject;
        IdPOP31.Retrieve(index,idMessage1);
        Memo2.text := IdMessage1.body.GetText;
        IdPOP31.Delete(index);
        //
        //IdPOP31.Disconnect;
      end;
    idmessage1.Free;
    IdPOP31.Disconnect;
  end
else
  IdPOP31.Disconnect;
end;

Grüße
Klaus

[DeddyH]

Möglicherweise habe ich es nicht richtig verstanden, aber ist es nicht irgendwie kompletter Unfug, in einer Schleife fortwährend Komponenten zu leeren und anschließend neue Texte zuzuweisen?

[Natcree]

Danke jetzt Funzt es Super