Hallo,
ich arbeite mich gerade in die Klasse TidImap4 ein ( Delphi 7):
nachricht := TIdMessage.Create(Self);
idImap41:=TIdIMAP4.create(nil);
idImap41.Host := 'yyyy';
idImap41.Username:= 'muster';
idImap41.Password:= 'geheim';
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;
nachricht.Free;
idImap41.destroy;
es kommt immer die Fehlermeldung "Nicht erkannter Imap4 Response Header"
Warum ??
Gruß
RalfE
ich arbeite mich gerade in die Klasse TidImap4 ein ( Delphi 7):
nachricht := TIdMessage.Create(Self);
idImap41:=TIdIMAP4.create(nil);
idImap41.Host := 'yyyy';
idImap41.Username:= 'muster';
idImap41.Password:= 'geheim';
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;
nachricht.Free;
idImap41.destroy;
es kommt immer die Fehlermeldung "Nicht erkannter Imap4 Response Header"
Warum ??
Gruß
RalfE