Информационный сайт

 

Реклама
bulletinsite.net -> Книги на сайте -> Программисту -> Васильев А. -> "VBA в Office 2000 учебный курс" -> 116

VBA в Office 2000 учебный курс - Васильев А.

Васильев А., Андреев А. VBA в Office 2000 учебный курс — Спб.: Питер, 2001. — 432 c.
ISBN 5-8046-0193-8
Скачать (прямая ссылка): vbauchebniykurs2001.djvu
Предыдущая << 1 .. 110 111 112 113 114 115 < 116 > 117 118 119 120 121 122 .. 154 >> Следующая

производится копирование
Метод Display
Метод Display выводит новое окно для папки.
Метод GetExplorer
Метод GetExplorer возвращает объект Explorer, который представляет собой новое окно для папки. Синтаксис метода GetExplorer: objMAPIFolder.GetExplorer([Di splayMode])
Элементы синтаксиса метода GetExplorer представлены в табл. 11.16.
Таблица 11.16. Элементы синтоксисо метода GetExplorer Элемент Описание
objMAPIFolder Обязательный элемент синтаксиса — выражение, котарае
возвращает объект MAPIFolder DisplayMode Необязательный элемент синтаксиса типа Long. Данный
параметр определяет режим отображения папки. Значение этаго аргумента мажет быть равна однай из следующих канстант:
olFolderDisplayFolderOnly, alFalderDisplayNoNavigation или alFalderDisplayNormal.
По умолчанию используется Значение alFolderDisplayNarmal.
Метод MoveTo
Метод MoveTo перемещает содержимое одной папки в другую. Синтаксис метода MoveTo аналогичен синтаксису метода СоруТо.
Коллекция Poges
311
Коллекция Inspectors
Коллекция Inspectors включает объекты Inspector, представляющие собой окна, в которых отображаются элементы Outlook.
Объект Inspector
Объект Inspector представляет собой окно, в котором отображаются элементы MS Outlook. Он характеризуется рядом методов:
О Для получения ссылки на объект Inspector можно использовать метод Active Inspector. Этот метод возвращает объект Inspector, который представляет собой активное окно, отображающее элементы Outlook.
О Чтобы получить ссылку на объект Inspector, связанный с конкретным элементом, следует использовать метод Getlnspector.
О Метод Display позволяет отобразить элемент, связанный с данным объектом Inspector.
Метод Activate
Метод Activate активизирует окно, в котором отображаются элементы MS Outlook.
Свойство Currentltem
Свойство Currentltem возвращает текущий элемент, отображаемый в окне Представления. В случае если не выбран ни один из элементов, произойдет ошибка.
Свойство WindowState
Свойство WindowState определяет состояние окна, отображающего элемент Outlook. Значением данного свойства может быть одна из следующих констант: olMaximized, olMinimized или olNormal.
Коллекция Pages
Коллекция Pages представляет собой страницы окна, в которых отображается тот или иной элемент Outlook. Каждый объект Inspector имеет коллекцию Pages.
Метод Add
Метод Add создает новую страницу и добавляет ее в коллекцию Pages. Синтаксис
метода Add:
objPages.Add(Name)
312
Урок 11. Создание приложений для MS Outlook
Элементы синтаксиса метода Add представлены в табл. 11.17.
Таблица 11.17. Элементы синтаксиса метода Add
Элемент Описание
objPoges Обязательный элемент синтаксисо — выражение, которое возвращает коллекцию
Pages
Name Обязательный элемент синтаксиса типо String. Данный пораметр определяет имя
сгроницы
Пример работы с Outlook
Ниже рассмотрим небольшой пример программы VBA для Outlook. В нем демонстрируется технология автоматизации ряда типовых процедур, включающих создание папок и элементов Outlook, задание некоторых свойств элемента, использование выделения и т. п. Приводимые примеры процедур подробно документированы в теле программы. v
Sub WorkingWithOutlookO
Dim myOIApp As New Outlook.Application Dim myOIExp As Outlook.Explorer Dim myOISel As Outlook.Selection 'Присваиваем объектной перененной ссылку 'на объект Application
Set myOIApp = CreateObject("Outlook.Application”)
'Присваиваем объектной перененной ссылку 'на объект Namespace
Set myNamespace = myOlApp.GetNamespaceC'MAPI")
'Присваиваем объектной перененной ссылку на объект ' MAPIFolder, который представляет собой папку Контакты Set myFolder = _
rnyNamespace.GetDefaultFolder(olFolderContacts)
'Создаем новую папку Личные контакты в папке Контакты Set myNewFolder = myFolder.Folders.Add("Личные контакты")
'Создаем элемент Outlook (Контакт)
Set myItern = myOIApp.CreateItem(olContactItern)
'Задаем некоторые свойства Контакта myltem.FirstName = "Сидоров" myltem.Bi rthday - "01.01.2000"
'Отображаем элемент Outlook myltem.Display
'Закрываем окно элемента Outlook, сохраняя 'изменения myltem.Close olSave 'Работа с выделением
'Присваиваем объектной переменной ссылку
'на объект Explorer
Set myOIExp = myOlApp.ActiveExplorer
Set myOISel = myOlExp.Selection
For x » 1 To myOISel.Count
Пример работы с Outlook
313
'Удаляен все выделенные элементы Outlook rrvyOlSel. Item(x) .Delete
Next x
'Присваиваем объектной переменной ссылку на 'объект Inspector,
"которые представляет собой окно, в котором "отображается элемент Outlook Set mylnspector = myltem.Getlnspector 'Отображаем элемент mylnspector.Display 'Сворачиваем окно элемента mylnspector.WindowState = olMinimized End Sub
Г
Интегрирование —— приложений ¦ ¦ Microsoft Office 2000 с помощью VBA
•Л
Приложения MS Office достаточно хорошо интегрированы. Благодаря этому вы можете, например, выполнить следующие действия:
О Создать рабочий лист MS Excel в документе MS Word и редактировать его, не закрывая MS Word.
О создать программный проект в базе данных MS Access, в котором для статистической обработки данных мы можем воспользоваться возможностями приложения MS Excel.
Предыдущая << 1 .. 110 111 112 113 114 115 < 116 > 117 118 119 120 121 122 .. 154 >> Следующая
Реклама
Авторские права © 2009 AdsNet. Все права защищены.
Rambler's Top100