Windows11更新后Excel VBA添加Outlook约会收件人触发运行时错误287

Windows 11更新后，Excel VBA代码创建Outlook约会时，添加收件人会触发错误，移除该代码段则程序正常运行。报错发生在以下语句：

Set recipient = olApt.Recipients.Add(contactEmail)

无报错的基础代码（移除收件人部分）：

' 创建Outlook应用对象
Set olApp = CreateObject("Outlook.Application")

' 创建新约会项
Set olApt = olApp.CreateItem(1) ' 1代表olAppointmentItem

' 设置约会属性
With olApt
    .Subject = "Text"  ' 设置约会主题
    .AllDayEvent = False
    .Start = reminderDate + TimeSerial(7, 30, 0) ' 设置开始时间
    '.End = contractDate + 1
    .Duration = 15 ' 设置持续时间（分钟）
    .ReminderSet = False ' 关闭提醒
    .Body = "Text" ' 设置约会内容
End With

' 以下是触发错误的代码段
' Set recipient = olApt.Recipients.Add("contactEmail@mail.com")
' recipient.Type = 1 ' 1代表必填参会人

1. 显式声明Recipient对象 #

未声明对象类型可能导致更新后的COM交互异常，添加类型声明：

' 若使用早期绑定（需引用Outlook对象库）
Dim recipient As Outlook.Recipient
' 若使用后期绑定（无需引用）
Dim recipient As Object

Set recipient = olApt.Recipients.Add("contactEmail@mail.com")
recipient.Type = 1

早期绑定需在VBA编辑器中：工具→引用→勾选「Microsoft Outlook xx.x Object Library」。

2. 强制解析收件人 #

添加收件人后调用Resolve方法，确保Outlook能识别邮箱地址，避免因地址解析失败报错：

Set recipient = olApt.Recipients.Add("contactEmail@mail.com")
recipient.Type = 1
If Not recipient.Resolve Then
    MsgBox "收件人邮箱无法识别，请检查地址"
    Exit Sub
End If

3. 调整Outlook安全设置 #

Windows 11更新可能修改了Outlook信任规则，检查以下设置：

• 打开Outlook→文件→选项→信任中心→信任中心设置
• 进入「程序访问」，确保允许Excel访问Outlook地址簿和创建项目
• 进入「宏设置」，启用必要的宏权限（如「启用所有宏」或「通知签署的宏」）

4. 改用会议项（MeetingItem）创建 #

普通约会添加收件人属于非标准操作，Outlook更新后可能限制该行为，改用会议项更符合逻辑：

Set olApp = CreateObject("Outlook.Application")
' 创建会议项（olMeetingItem对应常量14）
Set olMeeting = olApp.CreateItem(14)

With olMeeting
    .Subject = "Text"
    .AllDayEvent = False
    .Start = reminderDate + TimeSerial(7, 30, 0)
    .Duration = 15
    .ReminderSet = False
    .Body = "Text"
    
    ' 添加参会人
    Set recipient = olMeeting.Recipients.Add("contactEmail@mail.com")
    recipient.Type = 1 ' 必填参会人
    
    ' 若需要发送邀请，取消注释下面一行
    '.Send
End With

内容的提问来源于stack exchange，提问作者user27983486