用vb开发outlook程序的com，怎样使outlook一启动就是使用我设计的窗体.txt

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· 文本 代码 · 共 15 行

这个问题是我自己提出业的，线过几天的探索，已经知道如何实现了，但有些地方还不太明白希望能和大家交流一下。 
    首先在 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 就是你设计的窗体了。 
<END>