1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Button1Click(Sender: TObject);
var li:integer;
begin
    idImap41.Host := 'imap.1und1.de'; // bzw. 'imap.web.de'
    idImap41.Username:= 'xxxx.xxx@xxxx';
    idImap41.Password:= 'xxxxx';
    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));
          showMessage('complete:'+IntToStr(IdIMAP41.MailBox.TotalMsgs));
        end;
      idImap41.Disconnect;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:

//-------------------------------------------------------------------------
function imap41_gib_Anzahl_ungelesene_mails(in_host,in_user,in_password:string
                                            ):integer;
var idImap41: TIdIMAP4;
    l_ungelesene:integer;
begin
   idImap41:=TIdIMAP4.create(nil);
   idImap41.Host    := in_host; // z.B. 'imap.web.de'
   idImap41.Username:= in_user;
   idImap41.Password:= in_password;
   idImap41.Connect(5000);
   result:=-1;
   if idImap41.ConnectionState = csAuthenticated then begin
      if IdIMAP41.SelectMailBox('inbox') then begin
         IdIMAP41.StatusMailBox('inbox',idImap41.MailBox); // Wichtig!!!!
         l_ungelesene:=idImap41.MailBox.UnseenMsgs;
         result:=l_ungelesene;
//          showMessage('unseen:'+IntToStr(l_ungelesene));
//          showMessage('recent:'+IntToStr(IdIMAP41.MailBox.RecentMsgs));
//          showMessage('complete:'+IntToStr(IdIMAP41.MailBox.TotalMsgs));
      end;
   end;
   idImap41.Disconnect;
   idImap41.destroy;
end;
//-------------------------------------------------------------------------