เพิ่มผู้เข้าร่วมประชุมหลายคนในการเชิญประชุม

ฉันพยายามเพิ่มผู้เข้าร่วมหลายคน แต่ระบุเฉพาะที่อยู่อีเมลสุดท้ายในพื้นที่ .ถึง

ทดสอบ 1:

    .RequiredAttendees = "[email protected];"

    .RequiredAttendees = "[email protected]"

ทดสอบ 2:

    .RequiredAttendees = "[email protected]; [email protected]"

รหัสเต็ม:

Sub MeetingInvite()
Dim rng As Range
Dim OutApp As Object
Dim OutMail As Object
With Application
    .EnableEvents = False
    .ScreenUpdating = False
End With

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(1)
On Error Resume Next
With OutMail
    .RequiredAttendees = "[email protected];"
    .RequiredAttendees = "[email protected]"
    .Subject = "Meeting"
    .Importance = True
    .Body = "Meeting Invite" & Format(Date)
    .Display
End With

Set OutMail = Nothing
Set OutApp = Nothing
Unload Emy
End Sub

ฉันต้องเพิ่มที่อยู่อีเมลประมาณ 30 รายการ