Файл: ...\Samples\Solution\OLE\Sendmail.scx

Этот образец иллюстрирует использование класса mailbtn, хранящегося в библиотеке ...\Samples\Classes\Buttons.vcx для создания простой формы отправки сообщений, которая позволяет Visual FoxPro посылать данные по e-mail адресам.

Mailbtn представляет собой контнейнерный класс, содержащий командную кнопку и два элемента ActiveX: MAPI Session и MAPI Messages, который оба определены в Msmapi32.ocx. Элемент MAPI Session устанавливает сессию MAPI, а MAPI Messages позволяет пользователю осуществлять разлчные функции системы рассылки сообщений.

Класс mailbtn запускает новую сессию Mail, собирает данные из текущей записи и выводит диалог Send Mail с данными, вставленными в виде текста сообщения.

В этом классе имеются два пользовательских метода AddTabs и StripPath для форматирования информации, собранной из таблицы и вставленной в сообщений.

Этот класс, кроме того, использует другой пользовательский метод, с именем Signon наряду с пользовательским свойством с именем logsession, которое изначально установлено в значение .F. .

Когда пользователь щелкает по кнопке cmdMail, приведенный ниже код в событии Click вызывает метод signon, для устнановки logsession в true (.T.).:

 CopyCode imageСкопировать код
this.logsession = .T.
this.OLEMSess.signon

Если зарегистрироваться не удалось, то вызывается событие Error данного класса и logsession сбрасывается в .F.

Элементы управления MAPI невидимы в run time. В дополнение к этому, для них не существуют событий. Для их использования, вы должны указать соответствующие методы. Чтобы эти элементы работали, в системе должны присутствовать сервисы MAPI. Сервисы MAPI предоставлены в Microsoft Outlook и Exchange для Microsoft Windows 95 или более поздней.

Смотрите также