Архитектура 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

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

  6. Появится сообщение о предоставлении папки в совместное использование. Нажмите ОК.

  7. На рабочем столе Windows 95 щелкните правой кнопкой значок Inbox и выберите пункт Properties.

  8. Щелкните кнопку Add, выберите только службу Microsoft Mail и нажмите Next.

  9. В качестве каталога по умолчанию должна быть указана папка C:\wgpo0000. Нажмите Next.

  10. Убедитесь, что выбрана учетная запись admin, и нажмите Next.

  11. В поле пароля наберите слово password и нажмите Next.

  12. Нажмите Next, чтобы согласиться с предлагаемым по умолчанию файлом адресной книги.

  13. Нажмите Next, чтобы согласиться с предлагаемым по умолчанию файлом личной папки.

  14. Оставьте установленным флажок Do not add the Inbox to the Startup group и нажмите Next.

  15. Нажмите Finish.

    16. > Как открыть папку 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
      7. Ваша форма должна выглядеть, как показано на рисунке.


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

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


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


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

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

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



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