ShowMessageUI: Boolean;
Свойство ShowMessageUI определяет признак отображения окна почтового клиента, с помощью которого осуществляется отправка сообщения электронной почты.
По умолчанию свойству установлено значение False, при этом отправка сообщения осуществляется автоматически.
Если свойству установлено значение True, то отправляемое электронное сообщение будет открыто в программе, являющейся почтовым клиентом.
Добавьте ссылку на системную сборку Net.
Sub UserProc;
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.ShowMessageUI := True;
Client.Send;
End Sub UserProc;
В результате выполнения примера будет создано электронное письмо. Данное письмо будет открыто в программе, установленной в операционной системе в качестве почтового клиента по умолчанию.
См. также: