Thema: Delphi INDY pop3

Einzelnen Beitrag anzeigen

primusio

Registriert seit: 31. Jan 2004
19 Beiträge
 
#5

Re: INDY pop3

  Alt 14. Jun 2004, 17:25
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
  Mit Zitat antworten Zitat