Freenet

Freenet er en masse Internet komponenter så som sende e-mail's eller modtage e-mail's. I denne artikel vil jeg se fortælle om hvordan man bruger TsendMailDialog'en. Hvis du ikke har Freenet komponentet så kan du downloade den her.

Først skal vi jo opbygge et form nogenlunde som min neden under:

Så nu skal vi til at skrive nogle koder:
Det eneste vi skal er at gøre send knappen nyttig, dobbeltklik på den og skriv denne kode:

procedure TForm1.Button1Click(Sender: TObject);
begin
SendMailDialog1.Subject:=edit4.text;
SendMailDialog1.FROM_Address:=edit3.text
SendMailDialog1.ListTo.Add(edit2.text);
SendMailDialog1.MailText:=memo1.lines;
SendMailDialog1.SMTP_Server:=edit1.text;
SendMailDialog1.execute;
end; 

Ja det siger vist sig selv hvad de gør, hov SendMailDialog skriver jo på engelsk, det må vi heller gøre noget ved: Tryk først SendMailDialog1 en gang, og gå over i Object Inspector og vælg: Også kommer denne dialog frem:

Også skal du oversætte:

Connecting to = Forbinder til Connected to = Forbundet til Recipient # = Til Sending Mail = Sender e-mail Attachment = Filer Cancel = Afbryd

Sådan så skulle det hele virke. Hvis du har problemmer så kan du downloade koden her.