INetAttachment.ReleaseResource

Синтаксис

ReleaseResource;

Описание

Метод ReleaseResource осуществляет освобождение ресурса, используемого в качестве вложения к сообщению электронной почты.

Пример

Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием "Button1".

Sub Button1OnClick(Sender: Object; Args: IEventArgs);

Var

From_, To_: INetMailAddress;

Attach: INetAttachment;

AttachCollect: INetAttachmentCollection;

Message: INetMailMessage;

Client: INetSmtpClient;

i: Integer;

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:\image1.jpg");

AttachCollect := Message.Attachments;

AttachCollect.Add(Attach);

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

AttachCollect.Add(Attach);

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

Client.Send(Message);

For i := 0 To AttachCollect.Count - 1 Do

AttachCollect.Item(i).ReleaseResource;

End For;

End Sub Button1OnClick;

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

См. также:

INetAttachment