Hi, ich habe ein kleines Problem.
Ich möchte in einem Listview alle Header der Mails anzeigen, die in meinem Postfach liegen.
Hier ersteinmal der Code:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
| procedure Tposteingang.anzeigenClick(Sender: TObject);
var i,counter:integer;
var itm:Tlistitem;
begin
i:=0;
counter:=0;
itm:=listview1.Items.Add;
pop3client.Connect;
counter:=pop3client.CheckMessages;
idmessage.Clear;
//Schleife für Header
for i := 1 to counter do
begin
pop3client.RetrieveHeader(i,idmessage);
itm.Caption := idmessage.From.Address;
end;
end; |
Also, ich sehe dort kein Fehler, außerdem ist das praktisch eine Kopie der Indy-Originalhilfe. Trotzdem zeigt er mir nur die letzte Mail an. Sieht jemand einen Fehler ? Ich werde wahnsinnig
Vielen Dank für Eure Hilfe
Steffen
