mails kontrollieren

[Sharky]

Zitat von glkbkk:

..danke für den tipp, aber könntest dus etwas kleinschrittiger machen?...

Hai,
versuche es mal so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  IdPOP31.Disconnect;
  IdPOP31.Host := 'pop3.web.de';
  IdPOP31.Username := 'username';
  IdPOP31.Password := 'passwort';
  IdPOP31.Connect();
end;

procedure TForm1.IdPOP31Connected(Sender: TObject);
var
 mails : Integer;
begin
  mails := IdPOP31.CheckMessages;
  if (mails>0) then
  begin
    ShowMessage(Format ('Es gibt %d neue Nachrichten',[mails]));
  end;
end;