17 lines
470 B
ObjectPascal
17 lines
470 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD> SMTP-<2D><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> SMTPServerName <20> <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> toReceiver!
|
|||
|
|
uses System.Net.Mail;
|
|||
|
|
|
|||
|
|
const
|
|||
|
|
SMTPServerName = 'mail.spark-mail.ru';
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var fromSender := 'ivanov@mail.ru';
|
|||
|
|
var toReceiver := 'petrov@yandex.ru';
|
|||
|
|
var subject := 'Proba';
|
|||
|
|
var body := 'Hello!' + NewLine + 'I am robot!';
|
|||
|
|
var message := new MailMessage(fromSender, toReceiver, subject, body);
|
|||
|
|
|
|||
|
|
var mailClient := new SmtpClient(SMTPServerName);
|
|||
|
|
|
|||
|
|
mailClient.Send(message);
|
|||
|
|
end.
|