Hallo ! Ich habe ein kleines Problem....
Ich lade meine Emails runter doch das Problem ist das die erste email Doppelt in meine Listbox eingetragen wird......
Hat jemand eine Idee wieso das so ist ?!
Ich finde leider keinen Fehler ????
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
| procedure TForm1.Timer3Timer(Sender: TObject);
var i : Integer;
begin
timer3.Enabled:=false;
idPOP31.Host := 'pop.gmx.net';
idPOP31.Port := 110;
idPOP31.Username := 'ich@me.de';
idPOP31.Password :='passwort';
idPOP31.Connect;
Form1.Caption := 'Sie haben '+Inttostr(IDpop31.CheckMessages)+' Nachrichten auf dem Server, die zusammen '+InttoStr(IDpop31.RetrieveMailBoxSize div 1024)+ ' kb groß sind';
If IDpop31.CheckMessages >= 0 THen begin
end;
For i := 0 to IDPop31.CheckMessages do begin
IDMessage1.Clear;
IDpop31.Retrieve(i,IDMessage1);
Listbox1.Items.Add( IDMessage1.From.Address+' '+IDMessage1.Subject+' '+DateToStr(IDMessage1.Date)+' '+IntToStr(IDpop31.RetrieveMsgSize(i) div 1024)+'kb');
end; |
egal ob ich 1 oder 30 mails habe ! die erste mail wird immer doppelt in meine listbox geschrieben... ich verzweifel noch daran....
bin wie immre über ideen und vorschläge sehr dankbar...
MfG
Einfach112
