Views 集合

多个对象 Views 多个对象

当前文件夹中所有 View 对象的集合。

使用 Views 集合

使用 Explorer 或 MAPIFolder 对象的 Views 属性返回 Views 集合。使用 Views.Item(index) 返回单个 View 对象，其中 index 是对象名称或对象在集合中的位置。以下示例返回一个名为“Table View”的 olTableView 类型的 View 对象。

Sub GetView()
'Returns a view called Table View

    Dim olApp As Outlook.Application
    Dim objName As NameSpace
    Dim objViews As Views
    Dim objView As View

    Set olApp = Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objViews = objName.GetDefaultFolder(olFolderInbox).Views
    'Return a view called Table View
    Set objView = objViews.Item("Table View")

End Sub

使用 Views 集合的 Add 方法向集合添加新的视图。以下示例将一个 olIconView 类型的视图添加到用户的“便笺”文件夹中。

注意  如果已存在同名的视图，Add 方法将执行失败。

Sub CreateView()
'Creates a new view

    Dim olApp As Outlook.Application
    Dim objName As NameSpace
    Dim objViews As Views
    Dim objNewView As View

    Set olApp = Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
    Set objNewView = objViews.Add(Name:="New Icon View Type", _
                     ViewType:=olIconView, SaveOption:=olViewSaveOptionThisFolderEveryone)

End Sub

使用 Remove 方法将视图从集合中删除。以下示例将上面的“New Icon View Type”视图从集合中删除。

Sub DeleteView()
'Deletes a view from the collection

    Dim olApp As Outlook.Application
    Dim objName As NameSpace
    Dim objViews As Views
    Dim objNewView As View

    Set olApp = Outlook.Application
    Set objName = olApp.GetNamespace("MAPI")
    Set objViews = objName.GetDefaultFolder(olFolderNotes).Views
    objViews.Remove ("New Icon View Type")

End Sub