Outlook Add-in(COM加载项)技术指南（四）[7]

            dim ocurappo as outlook.appointmentitem

            set ocurappo = oitem

           end if

    next

2.4.处理属性页事件

在vb中，我们需要编写namespace对象和application对象的optionspageadd事件，来增加一个我们自定制的属性页，如下所示：

2.4.1. g_ons_optionspagesadd事件

它隶属于namespace对象。当用户单击我们正在监控的名称区的文件夹，然后选择了“属性”时，将触发namespace对象的optionpagesadd事件。

本事件有两个参数，含义是：

n         pages           是outlook属性页的一个集合；

n         folder           它是用户正试图检索其属性的文件夹。

首先，通过调用

set onewpage = createobject("tomosoftp.adminpage")

创建对象，这是一个我们编写的activex控件，实际上就是添加到propertypages集合中的子例程的属性页。