Delphi 7, indy imap zeigen nur neue e-mails

[robert83a1]

Hallo Alle,

Ich habe das hier :

Delphi-Quellcode:

var status : string;
    n,nummsgs     : integer;
begin
 idImap41.Host := 'mail.xxxxxx.co.rs';
  idImap41.Username:= '[e-mail]';
  idImap41.Password:= 'xxxxxx';
  idImap41.Connect(5000);
  showMessage('Connected');
  if idImap41.ConnectionState = csAuthenticated then
    if IdIMAP41.SelectMailBox('inbox') then begin
      showMessage('unseen:'+IntToStr(idImap41.MailBox.UnseenMsgs));
      showMessage('recent:'+IntToStr(IdIMAP41.MailBox.RecentMsgs));
      end;

  nummsgs:=idImap41.MailBox.TotalMsgs;

  for n:=1 to nummsgs do begin
    idimap41.RetrieveHeader(n, idMessage1);
    if mfRecent in idMessage1.Flags then
      begin
        Memo1.Lines.Add( 'Email Nº:'+IntToStr(n)+
                         ' From :'+idMessage1.From.Text+
                         ' Subject :'+idMessage1.Subject);
      end;
   idMessage1.Clear;
  end;
 idImap41.Disconnect;

Mein problem ist, das es ziegt das ich habe 2 Recent Messages, aber es geht nie in die if mfRecent in idMessage1.Flags , warum ?

Robi

[edit=mkinzler]Delphi-Tag eingefügt Mfg, mkinzler[/edit]