Send(Message: INetMailMessage);
Message. Электронное почтовое сообщение, которое необходимо отправить.
Метод Send осуществляет отправку сообщения электронной почты
Отправка сообщения осуществляется на почтовый сервер, указанный при инициализации в конструкторе NetSmtpClient.CreateWithHost или NetSmtpClient.CreateWithHostAndPort, либо на сервер, заданный в свойстве Host. Отправка осуществляется с учетом параметров, заданных в свойствах Port и Timeout.
Sub SendMailMessage;
Var
From_, To_: INetMailAddress;
Message: INetMailMessage;
Client: INetSmtpClient;
Credential: INetNetworkCredential;
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");
Credential := New NetNetworkCredential.Create("user", "password", "work");
Client.ThisHostCredentials("") := Credential;
Client.Send(Message);
End Sub SendMailMessage;
Указанная процедура позволяет отправить сообщение электронной почты через указанный почтовый сервер. Для авторизации на почтовом сервере будут использоваться указанные учетные данные.
См. также: