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

另请参阅

Outlook 对象模型引用

支持和反馈

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