excel - 引用 Outlook VBA 中的 Excel 单元格的应用程序定义或对象定义错误

Question

下面是我编写的用于自动发送 session 邀请的代码。

代码从工作表中的单元格中选择内容:Final_List。

当我尝试从 Excel 获取收件人地址时，我已突出显示出现错误的位置

Application -defined or object - defined error.

Dim outlookApp As Outlook.Application
Dim outlookmeet As AppointmentItem
Dim myRequiredAttendee As Recipient

Dim sh As Worksheet
Dim RowCount As Long

RowCount = 2
'row 1 has headers

With Worksheets("Final_List")

    Do While IsEmpty(Cells(RowCount, 1).Value) = False

        Set outlookApp = CreateObject("Outlook.Application")
        Set outlookmeet = outlookApp.CreateItem(olAppointmentItem)
        With outlookmeet

            .MeetingStatus = olMeeting

            .Subject = Cells(RowCount, 1).Value & " - " & Cells(RowCount, 2).Value
            .Location = Cells(RowCount, 3).Value
            .Start = Cells(RowCount, 5).Value
            .Duration = Cells(RowCount, 7).Value

            'getting errors on this line                     
            .Recipients.Add (Cells(RowCount, 6).Value)

            .Recipients.ResolveAll

            .Body = Cells(RowCount, 4).Value
            .Send
        End With

        RowCount = RowCount + 1

    Loop
End With

Set outlookmeet = Nothing
Set outlookApp = Nothing
MsgBox "All invites sent!"

Answer 1

AppointmentItem 对象没有 Recipient 属性。 Compare MSDN library