Отправить E-mail

Советы » E-mail » Отправить E-mail

procedure

TForm1.Button1Click(Sender: TObject); begin

NMSMTP1.Host := 'mail.host.com'; NMSMTP1.UserID := 'Username'; NMSMTP1.Connect; NMSMTP1.PostMessage.FromAddress := 'your_mail@host.com'; NMSMTP1.PostMessage.ToAddress.Text := 'delphiworld@mail.ru'; NMSMTP1.PostMessage.ToCarbonCopy.Text := 'your_mail@host.com'; NMSMTP1.PostMessage.ToBlindCarbonCopy.Text := 'second_your_mail@host.com'; NMSMTP1.PostMessage.Body.Text := 'This is the message from Delphi World project'; NMSMTP1.PostMessage.Attachments.Text := 'c:File.txt'; NMSMTP1.PostMessage.Subject := 'Delphi World is Great!'; NMSMTP1.SendMail; ShowMessage('Mail sent !'); NMSMTP1.Disconnect; end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com