在Excel应用程序中创建Outlook项目会生成错误：“0”；对象没有'；“不支持此属性或方法”；

下面是Excel宏的开头。我一直都能得到这个信息

“对象不支持此属性或方法

子注册表AppointmentList（CName作为字符串）
'将约会列表添加到Outlook中的日历中
Dim olApp作为Outlook.Application
将olApptItem作为Outlook.AppointmentItem进行调整
设置olApp=GetObject（“，“Outlook.Application”）
设置olApptItem=Application.CreateItem（olAppointmentItem）
出错时继续下一步

更改行

Set olApptItem = Application.CreateItem(olAppointmentItem)

到

---

应该是

olApp.CreatItem（）

应用程序

在Excel中运行时引用Excel应用程序对象。

olApp.CreateItem

可能是@TimWilliams的意思发生错误的原因是

应用程序

对象没有名为

CreateItem

的属性。

olApp

对象确实有@Tim Wi这样的属性利姆斯指出，你的回答对@Tim Williams所写的内容有什么补充？

Set olApptItem = olApp.CreateItem(olAppointmentItem)