Application.OptionsPagesAdd 事件 (Outlook)

只要用户单击 Outlook 的“选项”对话框的“加载项”选项卡上的“加载选项”按钮，此事件就发生。

语法

expression。 OptionsPagesAdd( _Pages_ , _Folder_ )

expression：表示“Application”对象的变量。

参数

名称	必需/可选	数据类型	说明
Pages	必需	PropertyPages	已添加到对话框中的属性页的集合。 此集合仅包括自定义属性页。 它不包括标准 Microsoft Outlook 属性页。
Folder	必需	PropertyPages	此参数仅用于的 Folder 对象。 属性对话框中打开的 文件夹 对象。

备注

该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

程序处理该事件以添加自定义属性页。 属性页将添加到“选项”对话框中。 当事件触发时，由 Pages 标识的 PropertyPages 集合对象包含调用事件处理程序之前添加的属性页。 若要将属性页添加到集合，请在退出事件处理程序之前使用 PropertyPages 集合的 Add 方法。

示例

此 Microsoft Visual Basic for Applications (VBA) 示例将新属性页添加到 Outlook 的 "选项" 对话框中。 示例代码必须位于组件对象模型 (COM) 加载项的类模块中。 有关 COM 加载项的信息，请参阅 使用 COM 加载项自定义 Outlook。

Implements IDTExtensibility2 
Private WithEvents OutlApp As Outlook.Application 
 
Private Sub IDTExtensibility2_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant) 
 Set OutlApp = Outlook.Application 
End Sub 
 
Private Sub OutlApp_OptionsPagesAdd(ByVal Pages As Outlook.PropertyPages) 
 Pages.Add "PPE.SimplePage", "Simple Page" 
 'PPE.SimplePage is a ProgID of the registered ActiveX Control - the property page that is to be displayed in the COM add-in 
End Sub

另请参阅

Application 对象

支持和反馈

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