通过

View.Apply 方法 (Outlook)

  • 项目

适用于Microsoft Outlook用户界面视图。

语法

表达式。应用

表达 一个代表 View 对象的变量。

备注

要正确地重置当前视图，您必须执行 View.Reset ，然后 View.Apply 。 下面的代码示例演示如何调用的顺序:

Sub ResetView() 
 
 Dim v as Outlook.View 
 
 ' Save a reference to the current view object 
 
 Set v = Application.ActiveExplorer.CurrentView 
 
 ' Reset and then apply the current view 
 
 v.Reset 
 
 v.Apply 
 
End Sub

示例

下面的 Visual Basic for Applications (VBA) 示例创建一个新的视图 New Table，然后应用该视图。

Sub CreateView() 
 
 'Creates a new view 
 
 Dim objName As Outlook.NameSpace 
 
 Dim objViews As Outlook.Views 
 
 Dim objNewView As Outlook.View 
 
 
 
 Set objName = Application.GetNamespace("MAPI") 
 
 Set objViews = objName.GetDefaultFolder(olFolderInbox).Views 
 
 Set objNewView = objViews.Add(Name:="New Table", _ 
 
 ViewType:=olTableView) 
 
 objNewView.Save 
 
 objNewView.Apply 
 
End Sub

另请参阅

视图对象

支持和反馈

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