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
另请参阅
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。