NetAttachment.Create

Syntax

Create(FileName: String);

Parameters

FileName. Path and name of the file which is required to be used as attachment to email message.

Description

The Create designer creates the object, which is used as an attachment to email message.

Example

To execute the example add a link to the Net system assembly. The Image01.jpeg file is required in the disk C root directory.

Sub UserProc;
Var
    From_, To_: INetMailAddress;
    Message: INetMailMessage;
    Attach: INetAttachment;
    Client: INetSmtpClient;
    Credent: NetNetworkCredential;
Begin
    From_ := New NetMailAddress.Create("user1@example.ru");
    To_ := New NetMailAddress.Create("user2@example.ru");
    Message := New NetMailMessage.CreateWithFromAndTo(From_, To_);
    Message.Subject := "Test letter";
    Message.Body := "Letter text";
    Attach := New NetAttachment.Create("c:\Image01.jpg");
    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;

After executing the example an email message with the topic "Test letter" and the text "Letter text" is sent from the mail address user1@example.ru to the mail address user2@example.ru. The Image01.jpeg file is attached to the message. The message is sent via the example.server.ru mail server working on HTTPS protocol. The credentials of the user1 user are used to authorize on the mail server.