こんにちは、ラナ、これが役立つコードです。次のようにしてください。
Excel で、次のように、件名、開始日、終了日、開始時刻、終了時刻、場所、説明、招待者を含むシートを作成します。

次に、Alt + F11 キーを押して、Miscrosoft Visual Basic for Applications ウィンドウを有効にし、[ツール] > [参照] をクリックして Microsoft Outlook 16.0 ライブラリ オプションをチェックし、[OK] をクリックします。

次に、[挿入] > [モジュール] をクリックし、以下のコードをコピーしてモジュールに貼り付けます。

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 会議ウィンドウが表示されます。