Hallo,
Danke für Deine Antwort.
so sieht der komplette Code aus:
Delphi-Quellcode:
idImap41:=TIdIMAP4.create(nil);
nachricht := TIdMessage.Create(nil);
idImap41.Host := 'yyyy';
idImap41.Username:= 'muster';
idImap41.Password:= 'geheim';
idImap41.Connect;
if idImap41.ConnectionState = csAuthenticated then
begin
if idImap41.SelectMailBox('inbox') then
begin
idImap41.StatusMailBox('inbox',idImap41.MailBox,[mdRecent]);
Memo1.Lines.Add('number of:' + IntToStr(idImap41.MailBox.TotalMsgs));
idImap41.retrieve(1,nachricht);
Memo1.Lines.Add('From: '+nachricht.Headers.Values['From']);
Memo1.Lines.Add('To: '+nachricht.Headers.Values['To']);
Memo1.Lines.Add('Subject: '+nachricht.Headers.Values['Subject']);
end
end
idImap41.Disconnect;
FreeAndNil(nachricht);
FreeAndNil(idImap41);
Es kracht bei nachricht.Headers.Values['From'];
Was auffällt der Aufruf idImap41.retrieve(1,nachricht), dauert sehr lange (fast 2 Minuten...)
Mit Outlook oder Thunderbird klappt alles sehr schnell.
Gruß
RalfE