Jetzt muss ich noch einmal ganz blöd nachfragen, wie kann ich für jede Mail die UIDL ermitteln ?
Ich lese die Informationen folgend herraus und schreibe die Informationen in ein ListView.
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
index : integer;
li : TListItem;
begin
pop.Host := 'SERVER';
pop.Username := 'USER';
pop.Password := 'PASS';
pop.Connect();
for index := 1 to pop.CheckMessages do
begin
pop.Retrieve(index,idMessage1);
li := ListView1.Items.Add;
li.Caption := IdMessage1.From.Text;
li.SubItems.Add(IdMessage1.Subject);
li.SubItems.Add(DateToStr(IdMessage1.Date));
idMessage1.Clear;
end;
pop.Disconnect;
end;
Wo kann ich jetzt, wie die UIDL auslesen ?
MfG
Primusio