在 Excel 應用程序中創建 Outlook 項目生成錯誤：“對象不支持此屬性或方法”

Question

下面是 Excel 宏的開頭。 我一直收到消息

“對象不支持此屬性或方法。

Sub RegisterAppointmentList(CName As String)

    ' adds a list of appontments to the Calendar in Outlook
    Dim olApp As Outlook.Application
    Dim olApptItem As Outlook.AppointmentItem

    Set olApp = GetObject("", "Outlook.Application")

    Set olApptItem = Application.CreateItem(olAppointmentItem)

    On Error Resume Next

Answer 1

換行

Set olApptItem = Application.CreateItem(olAppointmentItem)

至

Set olApptItem = olApp.CreateItem(olAppointmentItem)