Объект Views (Outlook)
Содержит коллекцию всех объектов View в текущей папке.
Используйте свойство Views объекта Folder , чтобы вернуть коллекцию Views . Используйте Представления (индекс), где индекс — это имя или положение объекта в коллекции, чтобы вернуть один объект View .
Используйте метод Add коллекции views, чтобы добавить новое представление в коллекцию.
Используйте метод Remove , чтобы удалить представление из коллекции.
В следующем примере возвращается объект View типа olTableView с именем Представление таблицы. Перед выполнением этого примера убедитесь, что существует представление с именем "Представление таблицы".
Sub GetView()
'Returns a view called Table View
Dim objName As NameSpace
Dim objViews As Views
Dim objView As View
Set objName = Application.GetNamespace("MAPI")
Set objViews = objName.GetDefaultFolder(olFolderInbox).Views
'Return a view called Table View
Set objView = objViews.Item("Table View")
End Sub
В следующем примере добавляется новое представление типа olIconView в папку "Заметки" пользователя.
Примечание
Метод Add завершится ошибкой, если представление с тем же именем уже существует.
Sub CreateView()
'Creates a new view
Dim objName As NameSpace
Dim objViews As Views
Dim objNewView As View
Set objName = Application.GetNamespace("MAPI")
Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
Set objNewView = objViews.Add(Name:="New Icon View Type", _
ViewType:=olIconView, SaveOption:=olViewSaveOptionThisFolderEveryone)
End Sub
В следующем примере из коллекции удаляется приведенное выше представление "Новый тип представления значка".
Sub DeleteView()
'Deletes a view from the collection
Dim objName As NameSpace
Dim objViews As Views
Dim objNewView As View
Set objName = Application.GetNamespace("MAPI")
Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
objViews.Remove ("New Icon View Type")
End Sub
Имя |
---|
ViewAdd |
ViewRemove |
Справочник по объектной модели Outlook
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.