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

       

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


В этом упражнении Вы с помощью элементов управления ActiveX создадите на Visual Basic приложения, снабженные средствами для работы с почтой. Используемые в этом упражнении элементы управления ActiveX обеспечивают интерфейс с MAPI. ^ Установка Microsoft Mail Postoffice

  1. В Панели управления дважды щелкните значок Microsoft Mail Postoffice.
  2. Выберите Create a new Workgroup Postoffice и нажмите Next.
  3. В поле Postoffice Location наберите С:\ и нажмите Next.
  4. По умолчанию Вам будет предложен каталог C:\wgpo0000. Нажмите Next.
  5. Введите информацию об администраторе, указанную в таблице.


  6. Поле

    Значение (все символы строчные)

    Name

    admin

    Mailbox

    admin

    Password

    password

    Остальные поля можно не заполнять. Нажмите ОК.

  7. Появится сообщение о предоставлении папки в совместное использование. Нажмите ОК.
  8. На рабочем столе Windows 95 щелкните правой кнопкой значок Inbox и выберите пункт Properties.
  9. Щелкните кнопку Add, выберите только службу Microsoft Mail и нажмите Next.
  10. В качестве каталога по умолчанию должна быть указана папка C:\wgpo0000. Нажмите Next.
  11. Убедитесь, что выбрана учетная запись admin, и нажмите Next.
  12. В поле пароля наберите слово password и нажмите Next.
  13. Нажмите Next, чтобы согласиться с предлагаемым по умолчанию файлом адресной книги.
  14. Нажмите Next, чтобы согласиться с предлагаемым по умолчанию файлом личной папки.
  15. Оставьте установленным флажок Do not add the Inbox to the Startup group и нажмите Next.
  16. Нажмите Finish.
  17. > Как открыть папку Inbox в Windows 95

    1. Дважды щелкните значок Inbox на рабочем столе.
    2. Если система попросит ввести пароль, убедитесь, что для почтового отделения используется каталог C:\wgpo0000, а в качестве почтового ящика — admin Вве дите в поле пароля password и нажмите ОК.
    3. Минимизируйте окно Inbox.
    4. > Использование элементов управления MAPI в Visual Basic

      1. Создайте в Visual Basic новый проект типа Standard EXE.
      2. Щелкните правой кнопкой мыши панель элементов управления и выберите пункт Components.
      3. Выберите компоненты Microsoft MAPI Controls 5.0 и Microsoft Rich Textbox Control 5.0.

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


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


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


      7. Элемент управления Свойство Значение
        Textl Name txtEmail
        Text2 Name txtSubject
        RichTextBox1 Name rtbMessage
        Command 1 Name cmdSendMail
        Caption &Send Mail
      8. Ваша форма должна выглядеть, как показано на рисунке.


      9. В событие 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

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


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


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

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

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



      14. Содержание раздела