使用英语阅读

通过


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

事件

方法

名称
Add
项目
Remove

属性

另请参阅

Outlook 对象模型引用

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。