Архитектура Microsoft Windows для разработчиков



              

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


  • Поместите на форму Form1 элементы управления MAPIMessages и MAPI- Session.
  • Добавьте на форму Form1 два текстовых поля, поле форматированного тек ста и кнопку.
  • Установите для них свойства, перечисленные в таблице.
  • Элемент управления

    Свойство

    Значение

    Textl

    Name

    txtEmail

    Text2

    Name

    txtSubject

    RichTextBox1

    Name

    rtbMessage

    Command 1

    Name

    cmdSendMail

    Caption

    &Send Mail

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

    11-2.jpg

  • В событие 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 и проверьте наличие новой почты. Доставка электронного письма может занять несколько секунд.



  • Содержание  Назад  Вперед