Outlook) (Views 物件

包含目前資料夾中所有 View 物件的集合。

註解

使用 Folder 物件的 Views 屬性可傳回 Views 集合。 使用 Views (index) ，其中 index 是物件在集合中的名稱或位置，可傳回單一 View 物件。

使用 Views 集合的 Add 方法，將新的檢視新增至集合。

使用 Remove 方法可從集合中移除檢視。

範例

下列範例會傳回 olTableView 類型的 View 物件，稱為 Table View。 在執行此範例之前，請確認已有名稱為 'Table View' 的檢視。

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
Class
Count
Parent
Session

另請參閱

Outlook 物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。