CreateWithHost(Host: String);
Host. Наименование, либо IP-адрес, почтового сервера.
Конструктор CreateWithHost создает объект, позволяющий отправлять электронные почтовые сообщения.
Наименование, либо IP-адрес, почтового сервера, через который будет осуществляться отправка, передается посредством параметра Host.
Sub SendMailMessage(Server: String);
Var
From_, To_: INetMailAddress;
Message: INetMailMessage;
Client: INetSmtpClient;
Begin
From_ := New NetMailAddress.Create("ivanov@server.ru");
To_ := New NetMailAddress.Create("petrov@mail.ru");
Message := New NetMailMessage.CreateWithFromAndTo(From_, To_);
Message.Subject := "Тестовое письмо";
Message.Body := "Текст письма";
Client := New NetSmtpClient.CreateWithHost("example.server.ru");
Client.Send(Message);
End Sub SendMailMessage;
Данная процедура может использоваться для отправки сообщений электронной почты через указанный почтовый сервер. Наименование, либо IP-адрес, почтового сервера указывается в параметре процедуры Server.
См. также: