Определяемый пользователем тип не определен для AppointmentItem в Excel

Question

Я скопировал пример на http://support.microsoft.com/kb/220595 в VBA в Excel.

Мой код выглядит следующим образом:

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 для получения значений.