嗨，拉娜，这是一个可以帮助你的代码，请按照以下方式操作：
在 Excel 中，创建一个包含主题、开始日期、结束日期、开始时间、结束时间、位置、描述和受邀者的工作表，如下所示：

然后，按 Alt + F11 键启用 Miscrosoft Visual Basic for Applications 窗口，单击工具 > 参考以检查 Microsoft Outlook 16.0 库选项，单击确定。

然后单击插入>模块并将以下代码复制并粘贴到模块中，

Sub CreateMeetingWithMultipleInvitees()
'UpdatebyExtendoffice
Dim xOlApp As Outlook.Application
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRng As Range
Dim xCell As Range
On Error Resume Next
Set xRng = Application.InputBox("select the invitees:", "Kutools for Excel", , , , , , 8)
Set xOlApp = CreateObject("Outlook.application")
Set xAppointmentItem = xOlApp.CreateItem(olAppointmentItem)
With xAppointmentItem
  .Subject = Range("A2").Value
  .Start = Range("B2").Value & " " & Range("D2").Text
  .End = Range("C2").Value & " " & Range("E2").Text
  .Location = Range("F2").Value
  .Body = Range("G2").Value
End With
For Each xCell In xRng
  xAppointmentItem.Recipients.Add xCell.Value
Next
xAppointmentItem.Recipients.ResolveAll
xAppointmentItem.MeetingStatus = olMeeting
xAppointmentItem.Save
xAppointmentItem.Display
Set xRng = Nothing
Set xOlApp = Nothing
Set xAppointmentItem = Nothing
End Sub

然后按F5启用代码，并选择被邀请人，然后弹出Outlook会议窗口。