通过

Views.ViewAdd 事件 (Outlook)

  • 项目

当向集合中添加视图时发生。 Microsoft Outlook 创建新的视图并将其传递给此事件。

语法

expression。 ViewAdd( _View_ )

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

参数

名称 必需/可选 数据类型 说明
View 必需 View 该事件发生之前添加到集合中的新视图。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 示例显示视图的名称，并将其保存 视图 事件激发时。 修改属性来保存对视图的更改后，请使用 Save 方法。 示例代码必须放在 类模块（如 ThisOutlookSession）中，并且 AddView() 应在 Outlook 调用事件过程之前调用过程。

Public WithEvents objViews As Outlook.Views 
 
 
 
Sub AddView() 
 
 Dim objView As Outlook.View 
 
 Set objViews = Application.ActiveExplorer.CurrentFolder.Views 
 
 Set objView = objViews.Add("Latest View1", olTableView, olViewSaveOptionAllFoldersOfType) 
 
End Sub 
 
 
 
Sub objViews_ViewAdd(ByVal View As View) 
 
'Displays name of new view 
 
 With View 
 
 Msgbox .Name & " was created programmatically." 
 
 .Save 
 
 End With 
 
End Sub

另请参阅

视图对象

支持和反馈

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