用VB开发Outlook程序的COM，怎样使Outlook一启动就是使用我设计的窗体
编号：QA004367
建立日期: 2001年8月22日 最后修改日期：2001年8月22日
所属类别：
肖志民:
操作系统：windows 2000/ 98
编程工具：VB6.0 Outlook200 for English & Chinese
问题：我们用VB开发 Outlook 程序的 COM，同时还对 outlook 里的联系人、日历等窗体作了一些修改。
我的问题是怎样在 COM 加载项里改变联系人、日历等的默认窗体，使 Outlook 一启动就是使用我设计的窗体。
水平: 刚入门
回答:
这个问题是我自己提出业的，线过几天的探索，已经知道如何实现了，但有些地方还不太明白希望能和大家交流一下。
首先在 COM 加载项里加入如下代码，将窗体发布在个人窗体库中：
Set OlApp = GetObject("", "Outlook.Application")
Set CalendarItem = OlApp.CreateItemFromTemplate("c:\Calendar.oft")
Set CalendarForm = CalendarItem.FormDescription
CalendarForm.Name = "CalendarForm"
CalendarForm.PublishForm olPersonalRegistry
其中 calendar.oft 是在 outlook 2000 里设计的一个窗体。
然后在程序里修改注册表：
1、加一个新键：HKEY_CURRENT_USER\Software\Microsoft\Office\9.0\Outlook\Custom Forms
2、再在这个键下加两个键：Compose 和 Read
3、在Compose下加一个二进制值：IPM.Appointment, 值为 IPM.Appointment.CalendarForm
4、在 Read 下加一个同样二进制值。
再次启动 outlook 之后，Calendar 就是你设计的窗体了。
此问题由肖志民回答。
| |
|
|
| |
|
|
