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;

7 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. Unknown 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................

  3. mckesi says:

    i9x84q0z34 p4h62n0k45 j5b42k0x43 a2i90n5m77 b1q10v7q40 e0a85r6d23

Post a Comment

Thank you for your comment.

Any request and idea are welcome.

CLICK TO REGISTER