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