Outlook VBA教程:OptionsPagesAdd事件

当打开“选项”对话框(单击“工具”菜单中的“选项”可弹出此对话框)或文件夹“属性”对话框时发生。该事件在 VBScript 中不可用。

Sub object_OptionsPagesAdd(ByVal Pages As PropertyPages, ByVal Folder As MAPIFolder)

object  该表达式的值为ApplicationNameSpace对象。

Pages  必选。已添加到对话框中的属性页集合。该集合仅包含自定义属性页。不包含标准 Microsoft Outlook属性页。

Folder   该参数仅用于MAPIFolder对象。必选。为其打开 Properties对话框的 MAPIFolder对象。

说明

程序处理该事件以添加自定义属性页。如果 object 为 Application对象,那么属性页将添加到“选项”对话框中。如果 object 为 NameSpace对象,那么属性页将添加到指定文件夹的“属性”对话框中。该事件触发时,由 Pages 确定的PropertyPages集合对象将包含调用事件处理器之前添加的属性页。要将属性页添加到集合中,请在退出事件处理器前使用 PropertyPages集合的Add方法。

VBA示例

本示例将新属性页添加到 Microsoft Outlook 的“选项”对话框中。示例代码必须放在Common Object Model (COM) 加载项的类模块中。


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 = Application
End Sub
Private Sub OutlApp_OptionsPagesAdd(ByVal Pages As Outlook.PropertyPages)
    Dim myPage As Object
    Set myPage = CreateObject("PPE.CustomPage")
    Pages.Add myPage
End Sub

上页:Outlook VBA教程:Open事件 下页:Outlook VBA教程:Progress事件

Outlook VBA教程:OptionsPagesAdd事件:相关链接

Outlook VBA教程:Progress事件 Outlook VBA教程:PropertyChange事件
Outlook VBA教程:Quit事件 Outlook VBA教程:Read事件
Outlook VBA教程:Reminder事件 Outlook VBA教程:ReminderAdd事件
Outlook VBA教程:ReminderChange事件 Outlook VBA教程:ReminderFire事件
Outlook VBA教程:ReminderRemove事件 Outlook VBA教程:Reply事件
Outlook VBA教程:ReplyAll事件 Outlook VBA教程:SelectionChange事件
Outlook VBA教程:Send事件 Outlook VBA教程:ShortcutAdd事件
Outlook VBA教程:Snooze事件 Outlook VBA教程:Startup事件
Outlook VBA教程:SyncEnd事件 Outlook VBA教程:SyncStart事件
Outlook VBA教程:ViewAdd事件 Outlook VBA教程:ViewRemove事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号