ReplyTo: INetMailAddress;
Свойство ReplyTo определяет адрес, по которому будет отправляться ответ на данное письмо.
Если свойство не установлено, по умолчанию, ответ будет поступать на адрес отправителя.
Sub Main;
Var
ReplyAdress, From_, To_: INetMailAddress;
Message: INetMailMessage;
Attach: INetAttachment;
Client: INetSmtpClient;
Begin
From_ := New NetMailAddress.Create("ivanov@server.ru");
To_ := New NetMailAddress.Create("petrov@mail.ru");
ReplyAdress := New NetMailAddress.Create("user1@mail.ru");
Message := New NetMailMessage.CreateWithFromAndTo(From_, To_);
Message.Subject := "Тестовое письмо";
Message.Body := "Текст письма";
Message.ReplyTo := ReplyAdress;
Client := New NetSmtpClient.CreateWithHost("example.server.ru");
Client.Send(Message);
End Sub Main;
После выполнения примера будет отправлено письмо через указанный почтовый сервер. Данное письмо создается с учетом адреса отправителя и получателя, без отправки копий кому-либо. Ответ на данное письмо будет перенаправлен по адресу "user1@mail.ru".
См. также: