Visual Basic 6. Руководство разработчика



         

Исходный текст приложения


Messages

В обработчике события Load (Загрузка) формы создаются две объектные пере менные — OLApp, которая указывает на приложение Outlook, и mNameSpace,

которая указывает на папки Outlook. Эти переменные объявлены в разделе декларации формы:

Dim OLApp As Application

Dim mNameSpace As NameSpace

Затем в программе объявляется переменная AllContacts, которая указывает на элементы (объекты) в папке Contacts.

Dim AllContacts As Items

Программа просматривает все объекты в семействе AllContacts и добавляет имена контактов (свойство FullName) в окно элемента управления Combo 1. Значение свойства Sorted элемента управления Combol устанавливается равным True, и программа удаляет любые повторяющиеся элементы (которые могут появиться в последовательных позициях списка). Ниже приведена программа, которая обраща­ется к Outlook и устанавливает значение объектной переменной AllContacts.

Программа 14.22.

Инициализация проекта Messages

Private Sub Form_Load()

On Error GoTo OutlookNotStarted

Set OLApp - CreateObject ("Outlook Application")

On Error GoTo NoMAPINameSpace

Set mNameSpace = OLApp.GetNamespace("MAPI")

Set AllMessages = _

mNameSpace.GetDefaultFolder(olFolderInbox).Items

Set AllContacts = _

mNameSpace.GetDefaultFolder(olFolderContacts).Items

Combo1.Clear

For Each mcontact In AllContacts

Combo1.Addltem mcontact.FullName

If Combo1.List(Combo1.NewIndex)= _

Combo1.List(Combo1.NewIndex + 1) Then _

Combo1.RemoveItern Combo1.NewIndex

Next

Combo1.ListIndex = 0

Exit Sub

OutlookNotStarted:

MsgBox "Could not start Outlook"

' (He удалось запустить Outlook)

Exit Sub

NoMAPINameSpace:

MsgBox "Could not get MAPI NameSpace"

' (He удалось получить место расположения MAPI)

Exit Sub

End Sub

Фильтрация сообщений

Пользователь может выбирать имя и (или) диапазон дат для сужения области поиска. Если флажки "From this Sender (От данного отправителя)" и "Between this dates (Между этими датами)" сброшены, то щелчок на кнопке Show Selected Messages приведет к выводу в окно элемента управления List Box информации обо всех сообщениях, находящихся в папке InBox. Если установить один или оба флажка, то программа выведет информацию только о тех сообщениях, которые соответствуют указанным критериям.




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