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)