Outlook) (视图对象
包含当前文件夹中所有 View 对象的集合。
使用 文件夹 对象的 视图 属性返回 视图 集合。 使用 Views (索引) (其中 index 是对象的名称或集合中的位置)可返回单个 View 对象。
使用 Views 集合的 Add 方法可向集合中添加新的视图。
使用 Remove 方法可从集合中删除视图。
下面的示例返回名为表视图类型 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
以下示例将上面的"New Icon View Type"视图从集合中删除。
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
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。