Rufe emails von einem Server ab und zeige diese über ein Stringgrid an. wenn ich nun neue Emails abrufe dann soll er diese hinzufügen. Klappt aber nicht. Es gibt eine Fehlermeldung.
Die neuen Nachrichten sollen ab der letzten zeile miteingetragen werden.
hier mal der Code zum einlesen
Delphi-Quellcode:
Nachrichtenliste := 0 ;
if idpop31.Connected then Nachrichtenliste:=idpop31.CheckMessages;
if Nachrichtenliste > 0 then
begin
for Index := Nachrichtenliste downto 1 do
begin
idmessage1.clear;
idPOP31.RetrieveHeader(Index, IdMessage1);
Form3.eltreestringgrid1.cells[0,index-1] := IdMessage1.From.Address;
IdPOP31.Retrieve(index,idMessage1);
Form3.eltreestringgrid1.cells[1,index-1] := IdMessage1.Subject;
IdPOP31.Retrieve(index,idMessage1);
Form3.eltreestringgrid1.cells[2,index-1] := IdMessage1.body.GetText;
IdPOP31.RetrieveHeader(index,idmessage1);
Form3.eltreestringgrid1.Cells[3,index-1] := Datetostr(Idmessage1.Date);
IdPOP31.RetrieveHeader(index,idmessage1);
Form3.eltreestringgrid1.Cells[4,index-1] := IdMessage1.From.Name;
IdPOP31.Delete(index);
end;
Hat jemand einen Rat???