Mail

Freenet.zip på delphi super pages, måske på torrys

Det er en source kode jeg er ude efter...

Jeg lavede en gang en mail-tjekker... Der brugte jeg bare NMPOP3-komponenten... Den virkede fint for mig...

Hermandsen>> Du skulle vel ikke lige have en source kode liggende så... :)

Der er ellers en meget fin demo med freenet.zip, med sourcekode !!

Gør det til et svar, så for du dine point..

Der er ellers en meget fin demo med freenet.zip, med sourcekode !!

Takker ;-)

Det var faktisk EKSTREMT simpelt... Min version tjekkede dog kun hvor mange nye mails man havde på en konto. :)

function NewMailCount(UserID, Password, Host: String; Port: Integer): 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 := Form1.POP3.MailCount;
    POP3.Disconnect;
  except on ESockError do end;
end;

Ups... Lavede lige en fejl mens jeg skrev det gamle eksempel om...

uses
  NMpop3;

function NewMailCount(UserID, Password, Host: String; Port: Integer): 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;

okay, smid lige det ud som et svar... Så er der point på kontoen

>>cork
Hehe... Du har jo lukket spørgsmålet! :)

øhhh... hvordan har jeg gjort det? Og hvordan kan jeg åbne den igen?

Du har givet pointene til benson. Når du giver point, så lukker du automatisk spørgsmålet.
Hvis du skal give flere point, så opretter du et nyt spørgsmål hvor du skriver "Point til: [navn]", giver pointene og som spørgsmålets indhold skriver du linket til dette spørgsmål...

Men det behøves ikke... Jeg har point nok! ;)

Forresten...
Det der

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

Skal vel erstattes med mine data'er f.eks
  POP3.UserID := p.poulin@ofir.dk;
  POP3.Password := Du troede lige :);
  POP3.Host := SMTP.Ofir.dk;
  POP3.Port := ???;

Hvad er en Port...

Nej, det er en færdig function... Dvs. du bare skriver:

procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  I := NewMailCount('p.poulin@ofir.dk', 'Du troede lige :)', 'SMTP.Ofir.dk', 110);
  if I < 0 then
    ShowMessage('Der kunne ikke oprettes forbindelse')
  else if I = 0 then
    ShowMessage('Du har ingen nye mails. TABER!!!')
  else if I > 0 then
    ShowMessage(Format('Du har %d nye mails.', [I]));
end;

Så kommer den med antallet af nye mails på din konto... Du skal lige være opmærksom på at det virker KUN for POP3-konti.

Standard port er 110... Jeg laver lige en anden function til dig, hvor du ikke behøver at skrive port ind, men stadig kan ændre den... Gi' mig lige to sekunder...

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;

Nu behøver du kun at indtaste brugernavn, adgangskode og host. Du kan også skrive porten hvis du vil, men det er ikke et krav. Hvis du ikke skriver noget, så sættes den bare til standard som er 110.

Det er genialt det der....
Mange tak... Så blive squ godt...
Hvordan gør man så når man skal lave en sende funktion (Nu får du dine point) :)

Puuuha... Der skal du bruge NMSMTP-komponenten... Jeg har aldrig selv leget med den, men hvis den er lige så let at bruge som NMPOP3-komponenten (hvilket jeg tror), så er det jo lige til at gå i gang med... Ellers så kig lidt i hjælpen! :)