用户定义的类型未在Excel中为AppointmentItem定义

Question

我将http://support.microsoft.com/kb/220595的示例复制到Excel中的VBA。

我的代码如下：

Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")

Dim olAppt As Outlook.AppointmentItem
Set olAppt = olApp.CreateItem(olAppointmentItem)

我在第Dim olAppt As Outlook.AppointmentItem行上获得了以下错误： “用户定义的类型未定义”。

如何解决这个问题？

我使用MS Office 2003。

Answer 1

该文章列出了四个先决条件步骤。它们列在代码块之前。

您可能忘记按照第二步添加对Outlook对象库的引用 唯一的区别是，在VBA中，菜单项位于Tools下，而不是Project。

Answer 2

您需要按其值引用所有常量，因此，olAppointmentItem = 1：

 Set olAppt = olApp.CreateItem(1)

您可以查找值，例如http://msdn.microsoft.com/en-us/library/aa911356.aspx，也可以使用Outlook的对象浏览器来获取值。