INetAttachmentCollection.Add

Синтаксис

Add(Value: INetAttachment);

Параметры

Value - вложение, которое необходимо добавить в коллекцию.

Описание

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

Пример

Sub Main;

Var

From_, To_: INetMailAddress;

Attach: INetAttachment;

AttachCollect: INetAttachmentCollection;

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 := "Здесь указывается текст письма";

Attach := New NetAttachment.Create("c:\image01.jpg");

AttachCollect := Message.Attachments;

AttachCollect.Add(Attach);

Attach := New NetAttachment.Create("c: \image02.jpg");

AttachCollect.Add(Attach);

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

Client.Send(Message);

End Sub Main;

После выполнения примера будет отправлено письмо через указанный почтовый сервер. В качестве вложения к данному письму будет добавлено два файла с наименованиями "image01.jpg" и "image02.jpg".

См. также:

INetAttachmentCollection