Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
Delphi 10.2 Tokyo Enterprise
|
AW: Fehlermeldung "Nicht erkannter Imap4 Response Header"
6. Sep 2010, 14:03
Also da geht mit Indy ich hab das auch aber mein Code sieht anders aus
Delphi-Quellcode:
If IdIMAP41.SelectMailBox('INBOX') then
Begin
IdIMAP41.CheckMailBox;
End;
x:=IdIMAP41.MailBox.TotalMsgs;
SetLength(Datein,x);
For i:=1 to x do
Begin
IdMsg.Clear;
IdIMAP41.Retrieve(i,IdMsg);
Datein[i-1]:=i;
WriteLogFile(IdMsg.Subject,'New Mail');
WriteLogFile(IdMsg.Sender.Address,'New Mail');
for u:=0 to IdMsg.MessageParts.Count-1 do
Frank Tux sein Lieblingsquellcode
While anzfische<TuxSatt do begin
Fisch:=TFisch.Create; Tux.EssenFisch(Fisch); Fisch.Free;inc(anzfische); end;
|