INetMapiException.Code

Синтаксис

Code: NetMapiErrorCode;

Описание

Свойство Code возвращает код ошибки, возникшей при отправке сообщения электронной почты.

Пример

Sub Main;

Var

Msg: INetMapiMessage;

Client: INetMapiClient;

Attach: INetMapiAttachment;

Begin

Try

Client := New NetMapiClient.Create;

Msg := New NetMapiMessage.Create;

Msg.From_ := "ivanov@server.ru";

Msg.To_.Add("petrov@mail.ru");

Msg.Body := "Фото - Image.bmp";

Msg.Subject := "Фотография";

Attach := Msg.Attachments.Add;

Attach.Name := "Фото";

Attach.Path := "c:\Image.bmp";

Client.Message := Msg;

Client.Send;

Except On e: NetMapiException Do

Debug.WriteLine("Ошибка при отправке сообщения электронной почты");

Debug.WriteLine("Код ошибки: " + e.Code.ToString);

End Try;

End Sub Main;

После выполнения примера будет отправлено электронное письмо с помощью программы, установленной в операционной системе в качестве почтового клиента по умолчанию. К письму, в качестве вложения, будет присоединен файл "Image.bmp". В списке вложений данный файл будет отображаться с наименованием "Фото". В случае возникновения ошибок во время отправки сообщения в консоль среды разработки будет выведено соответствующее сообщение и код ошибки.

См. также:

INetMapiException