You must have the component TNMSMTP from FastNet tools. This component is included in Delphi 4-5 Professional and Enterprise

procedure TForm1.Button1Click(Sender:Object);
Begin
NMSMTP1.Host := 'mail.host.com';
NMSMTP1.UserID:= 'username';
NMSMTP1.Connect;
NMSMTP1.PostMessage.FromAddress:='webmaster@swissdelphicenter.ch';
NMSMTP1.PostMessage.ToAddress.Text := 'user@host.com';
NMSMTP1.PostMessage.Body.Text := 'This is the message';
NMSMTP1.PostMessage.Subject:='Mailsubject;
NMSMTP1.SendMail;
showmessage('Mail sent !');
end;

10 Responses so far.

  1. tiki says:

    gagal gw implementasikan kodenya..
    apa kodenya kurang lengkap atau gw yang salah ya..
    mungkin bisa diberi lebih banyak keterangan untuk fungsi dari kode2nya


    Mesothelioma Malignant

  2. aparna john says:

    Hi,Designing websites is like assembling crafts in Web Design Cochin. You just need one or two raw materials, the proper tools, and your old, trusty creative mind. Thanks................

Post a Comment

Thank you for your comment.

Any request and idea are welcome.

CLICK TO REGISTER