Message: INetMapiMessage;
Свойство Message определяет сообщение электронной почты, которое необходимо отправить.
Sub Main;
Var
Msg: INetMapiMessage;
Client: INetMapiClient;
Begin
Client := New NetMapiClient.Create;
Msg := New NetMapiMessage.Create;
Msg.From_ := "ivanov@server.ru";
Msg.To_.Add("petrov@mail.ru");
Msg.Subject := "Тестовое письмо";
Msg.Body := "Текст письма";
Client.Message := Msg;
Client.Send;
End Sub Main;
После выполнения примера будет отправлено электронное письмо с помощью программы, установленной в операционной системе в качестве почтового клиента по умолчанию.
См. также: