NetAttachment.Create

Синтаксис

Create(FileName: String);

Параметры

FileName. Путь и наименование файла, который необходимо использовать в качестве вложения к электронному письму.

Описание

Конструктор Create создает вложение к электронному письму.

Пример

Для выполнения примера подключите ссылку на системную сборку Net. Предполагается наличие в корневом каталоге диска C файла «Image01.jpeg».

Sub UserProc;
Var
    From_, To_: INetMailAddress;
    Message: INetMailMessage;
    Attach: INetAttachment;
    Client: INetSmtpClient;
    Credent: INetNetworkCredential;
Begin
    From_ := New NetMailAddress.Create("user1@example.ru");
    To_ := New NetMailAddress.Create("user2@example.ru");
    Message := New NetMailMessage.CreateWithFromAndTo(From_, To_);
    Message.Subject := "Тестовое письмо";
    Message.Body := "Текст письма";
    Attach := New NetAttachment.Create("c:\Image01.jpeg");
    Message.Attachments.Add(Attach);
    Client := New NetSmtpClient.CreateWithHost("example.server.ru");
    Credent := New NetNetworkCredential.Create("user1", "password", "domain");
    Client.ThisHostCredentials("https") := Credent;
    Client.Send(Message);
End Sub UserProc;

После выполнения примера с почтового адреса «user1@example.ru» на адрес «user2@example.ru» будет отправлено электронное письмо с темой «Тестовое письмо» и текстом «Текст письма». Письмо содержит во вложении файл Image01.jpeg. Письмо отправлено при помощи почтового сервера с наименованием «example.server.ru», работающего по протоколу https. Для авторизации на почтовом сервере используются учетные данные пользователя «user1».

См. также:

NetAttachment