如何使用Outlook VBA发送会议请求，以便接受前X个与会者并拒绝其他所有人？

Sub SendMeetingRequest()
    Dim objOutlook As Outlook.Application
    Dim objNamespace As Outlook.Namespace
    Dim objFolder As Outlook.Folder
    Dim objAppointment As Outlook.AppointmentItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.Recipient
    Dim i As Integer
    Dim X As Integer
    
    ' 初始化Outlook应用程序
    Set objOutlook = New Outlook.Application
    Set objNamespace = objOutlook.GetNamespace("MAPI")
    Set objFolder = objNamespace.GetDefaultFolder(olFolderCalendar)
    
    ' 创建会议请求
    Set objAppointment = objFolder.Items.Add(olAppointmentItem)
    With objAppointment
        .Subject = "会议主题"
        .Location = "会议地点"
        .Start = Date + TimeValue("10:00:00") ' 设置会议开始时间
        .Duration = 60 ' 设置会议持续时间（以分钟为单位）
        
        ' 添加与会者
        Set objRecipients = .Recipients
        objRecipients.Add "email1@example.com" ' 第一个与会者的邮箱地址
        objRecipients.Add "email2@example.com" ' 第二个与会者的邮箱地址
        ' 添加更多与会者...
        
        ' 设置前X个与会者为接受状态，其他人为拒绝状态
        X = 2 ' 设置X的值，表示前X个与会者接受邀请
        For i = 1 To objRecipients.Count
            Set objRecipient = objRecipients.Item(i)
            If i <= X Then
                objRecipient.MeetingResponseStatus = olResponseAccepted
            Else
                objRecipient.MeetingResponseStatus = olResponseDeclined
            End If
        Next i
        
        .Send ' 发送会议请求
    End With
    
    ' 释放对象
    Set objRecipient = Nothing
    Set objRecipients = Nothing
    Set objAppointment = Nothing
    Set objFolder = Nothing
    Set objNamespace = Nothing
    Set objOutlook = Nothing
End Sub