当视图添加到集合中时发生。Microsoft Outlook 创建新的视图并将其传递给该事件。
Sub expression_ViewAdd(ByVal View As View)
expression 该变量引用一个在类模块中以事件形式声明的 Views 类型对象。
View 在该事件发生前添加到集合中的新视图。
以下示例显示视图名称并保存视图。在修改属性后使用 Save 方法将更改保存到视图。
Sub tblView_ViewAdd(ByVal View As View)
'Displays name of new view
With View
Msgbox .Name & "Was created."
.Save
End With
End Sub