Einzelnen Beitrag anzeigen

franktron

Registriert seit: 11. Nov 2003
Ort: Oldenburg
1.446 Beiträge
 
Delphi 10.2 Tokyo Enterprise
 
#7

AW: Fehlermeldung "Nicht erkannter Imap4 Response Header"

  Alt 6. Sep 2010, 13: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;
  Mit Zitat antworten Zitat