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

以下是我写的自动发送会议邀请函的代码。

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

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

应用程序定义的错误或对象定义的错误。

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对象没有收件人属性。 比较MSDN库

Answer 2

我有这个解决scheme：

 Sub ScheduleMeeting() Dim outlookApp As Outlook.Application Dim outlookmeet As Outlook.AppointmentItem Dim RowCount As Long Dim Name1 As Variant RowCount = 2 'row 1 has headers Worksheets("MeetingInvite").Activate With Worksheets("MeetingInvite") 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 .Location = Cells(RowCount, 2).Value .Start = Cells(RowCount, 4).Value .Duration = Cells(RowCount, 6).Value .RequiredAttendees = Cells(RowCount, 5).Value .Body = Cells(RowCount, 3).Value .Display End With RowCount = RowCount + 1 Loop End With Set outlookmeet = Nothing Set outlookApp = Nothing 'MsgBox "All invites sent!" End Sub