Поддержка MAPI посредством управляющих элементов ActiveX - часть 2

Поместите на форму Form1 элементы управления MAPIMessages и MAPI- Session.

Добавьте на форму Form1 два текстовых поля, поле форматированного тек ста и кнопку.

Установите для них свойства, перечисленные в таблице.

Ваша форма должна выглядеть, как показано на рисунке.

В событие Click кнопки cmdSendMail введите следующий код:

MAPISession1.SignOn

With MAPIMessages1

.SessionID = Form1.MAPISession1.SessionID

.Compose

.MsgSubject = txtSubject.Text

.MsgNoteText = rtbMessage.Text

.RecipAddress = txtEmail.Text

.AddressResolveUI = True

. ResolveName

.Send False

End With

MAPISessionI.SignOff

В меню Run Visual Basic выберите пункт Start.

Введите admin в качестве адресата сообщения.

Введите тему и само сообщение, после чего нажмите кнопку Send Mail.

Сообщение будет отправлено Вашей учетной записи в почтовом отделении Windows 95.

Переключитесь в окно Inbox и проверьте наличие новой почты. Доставка электронного письма может занять несколько секунд.