POP3 checker

Hent INDY's gratis opensource pakke den har både POP3 og alle de andre protokoller.

http://www.nevrona.com/Indy/

uses
  NMPOP3;

function NewMailCount(UserID, Password, Host: String; Port: Integer = 110): Integer;
var
  POP3: TNMPOP3;
begin
  POP3 := TNMPOP3.Create(nil);

  POP3.UserID := UserID;
  POP3.Password := Password;
  POP3.Host := Host;
  POP3.Port := Port;

  Result := -1;
  try
    POP3.Connect;
    Result := POP3.MailCount;
    POP3.Disconnect;
  except end;
end;

Beklager, men intet virker. Måske er jeg bare ikke den store Dephi haj! Er det muligt at få én af Jer til at lave en program med kode der kan ligge i SYSTRAYEN og søge efter mails på en speciel POP3 konto. Den skal kun oplyse om at der er kommet en ny mail og evt hvem den er fra. Den skal altså ikke hente den ned. Jeg vil give 150 point. Min mail er ram@iamby.dk hvis det har interesse eller hvis der er spørgsmål...
POP3 ID og passwords mm skal kunne laves om når som helst... Evt ekstern fil...?

PS>

Ellers mange tak for hjælpen!

Kan da godt lave et program til dig, men så bliver det først i morgen... Håber det er okay! ;)

Ovenstående kode skulle ellers virke fint... Du skal bare indsætte den et sted og inkludere NMPOP3 under uses-erklæringen...

hej igen

Delphi sktiver fejl ved NMPOP3.. Har kun Delphi 4 Standard? Er det derfor? Jeg har faktisk fundet et program på nettet men hvis du har lavet et, med kode, så vil jeg da gerne se det..!

Rettelse: Delphi skriver...

Arh, sorry... Havde lige overset det med Delphi 4 standard...

Det er egentligt ikke så svært. Den kode der skal til kan hentes fra min NewMailCount-funktion og borrisholts eksempel med TrayIcon, eller AnimatedTrayIcon...

Så er det bare at lave noget smart grafik eller noget! ;)