INetMailAddressCollection.Add

Синтаксис

Add(Value: INetMailAddress);

Параметры

Value - адрес электронной почты, который необходимо добавить в коллекцию.

Описание

Метод Add осуществляет добавление электронного адреса в коллекцию.

Пример

Sub Main;

Var

Addr, From_, To_: INetMailAddress;

CopyTo: INetMailAddressCollection;

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 := "Копии письма";

CopyTo := Message.CC;

Addr := New NetMailAddress.CreateWithName("user1@mail.ru", "Пользователь");

CopyTo.Add(Addr);

Addr := New NetMailAddress.Create("user2@mail.ru");

CopyTo.Add(Addr);

Client := New NetSmtpClient.CreateWithHost("example.server.ru");

Client.Send(Message);

End Sub Main;

После выполнения примера будет отправлено письмо через указанный почтовый сервер. Копия письма будет отправлена по двум адресам "user1@mail.ru" и "user2@mail.ru".

См. также:

INetMailAddressCollection