Офисные задачи в Outlook 2002

         

Программа 22.5. Инициализация данных из Outlook



Программа 22.5. Инициализация данных из Outlook

Sub Init_Authors()

Объявление переменных

Dim nms As NameSpace

Dim fldContacts As MAPIFolder

Dim itms As Collection

Dim itm As Integer

Создание объекта, указывающего на данные Outlook

Set nms = Application.GetNamespace("MAPI") 'Создание объекта, указывающего на папку Контакты

Set fldContacts = nms.GetDefaultFolder(olFolderContacts) 'Присваеваем объекту значение подпапки Writers

Set fldContacts = fldContacts.Folders("Writers") 'создание объекта (семейство), содержащего все элементы папки Контакты

Set itms = fldContacts.items 'Организация цикла по всем контактам в папке

For itm = 1 То itms.Count

With itms(itm) 'Инициализация списка именами контактов

authors.Addltem .LastNameAndFirstName .End With

Next

authors.Listlndex = 0 End Sub

Итак, прежде всего, мы объявляем ряд переменных, после чего получаем ссылку на папку с контактами и организуем цикл по всем ее элементам. Как видите, все достаточно просто.




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