Einzelnen Beitrag anzeigen

RalfE

Registriert seit: 30. Apr 2010
25 Beiträge
 
#4

AW: Fehlermeldung "Nicht erkannter Imap4 Response Header"

  Alt 23. Aug 2010, 11:19
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
  Mit Zitat antworten Zitat