Базы данных ворд. Access. Взаимодействие приложений. Часть Интеграция с Office 2000
Скачать 0.56 Mb.
|
Отображение общей папки Outlook Данный код отображает общую папку Outlook: Dim objOutlook As Outlook.Application Dim objNameSpace As Outlook.NameSpace Dim objPublicFolders As Outlook.Folders Dim objAHPublicFolders As Object Dim objOfficeContacts As Object Set objNameSpace = objOutlook.GetNamespace("MAPI") Set objPublicFolders = objNameSpace.Folders("Public Folders") Set objAHPublicFolders = objPublicFolders.Folders("Favorites") Set objOfficeContacts = objAHPublicFolders.Folders("Office Contacts") 'Отображение общей папки "Office Contacts" objOfficeContacts.DisplayThe Поиск элемента Outlook Следующий код иллюстрирует поиск контакта в Outlook. Set objitem = objContactIterns.Find("[File As] = 'Zeiko, John'") objI tern.Display Фильтрация элементов Outlook Для фильтрации элементов Outlook применяется метод Resolve. Следующий код возвращает только контакты с именем "Steve": Set objFilter = objContactItems.Restrict("[First Name] = 'Steve'") СОВЕТ Код данной статьи содержит целое приложение электронной почты Internet. Сообщения электронной почты можно 'Я отправить из Outlook различным группам людей в базе данных Access, Код статьи также включает примеры писем, созданных в Word, которые можно автоматически разослать согласно : списку контактов в Outlook. Автоматизация Graph В данном разделе описаны специфические приемы автоматизации Microsoft Graph. Приведены соответствующие примеры. Объектная модель Graph Существует более 10 объектов Graph, которыми можно манипулировать с помощью VBA. Наиболее часто используемые объекты Graph описаны в табл. 7. Названия объектов, содержащих коллекции, заканчиваются на -s. Таблица 7. Объекты Graph.
|