Hallo,
soweit geht jetzt alles!
Hat vielleicht einer eine bessere Lösung?
Schritt1:
Delphi-Quellcode:
procedure TForm1.PostTimer(Sender: TObject);
var
index : integer;
li : TListItem;
begin
idpop31.Connect;
if Idpop31.CheckMessages = 1 then
for index := 1 to IdPOP31.CheckMessages do
begin
IdPOP31.Retrieve(index,idMessage1);
IdPOP31.Retrieve(index,idMessage1);
li := ListView1.Items.Add;
li.Caption := IdMessage1.Subject;
Memo1.Text := li.Caption;
idMessage1.Clear;
IdPOP31.Delete(index);
IdPOP31.Disconnect;
end else begin
IdPOP31.Disconnect;
end;
Schritt2:
Delphi-Quellcode:
if Memo1.Text <> '' then begin
MyTable2.Insert;
MyTable2.FieldByName('Eingang').Text:= (FormatDateTime('dd.mm.yyyy hh:nn:ss',now));
DBMemo2.Text := Memo1.Text;
DBEdit4.Text:='0 E-Mail';
MyTable2.Post;
MyTable2.Refresh;
Memo1.Clear;
ListView1.Clear;
soweit geht jetzt alles !