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
事件
| 名称 |
|---|
| ViewAdd |
| ViewRemove |
方法
| 名称 |
|---|
| Add |
| 项目 |
| Remove |
属性
| 名称 |
|---|
| Application |
| 类 |
| Count |
| Parent |
| Session |
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。