Einzelnen Beitrag anzeigen

Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#3

AW: Fehlermeldung "Nicht erkannter Imap4 Response Header"

  Alt 23. Aug 2010, 09:41
Moin,

an welcher Stelle tritt die Fehlermeldung auf? (Ist sehr hilfreich um deine Frage zu beantworten)

Delphi-Quellcode:
nachricht := TIdMessage.Create(Self);
// Diese Zeile kommt mir spanisch vor
// Ist idImap41 schon auf der Form deklariert?
idImap41:=TIdIMAP4.create(nil);
try
  idImap41.Host := 'yyyy';
  idImap41.Username:= 'muster';
  idImap41.Password:= 'geheim';
  // ich sehe nirgendwo ein idImap41.Connect
  if idImap41.ConnectionState = csAuthenticated then
  begin
    if IdIMAP41.SelectMailBox('inbox') then
    begin
      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;
finally
  nachricht.Free;
  idImap41.Free; // nicht Destroy siehe Delphi Hilfe
end;
Auffälligkeiten habe ich in dem Code mal kommentiert
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat