如何为作为附件发送的.ics会议邀请添加参会人员？

我需要创建包含参会人的会议邀请，保存为文件后附加到另一封邮件中供他人发送。但遇到以下问题：

• 最初尝试使用Outlook.MeetingItem失败，改用Outlook.AppointmentItem后，添加参会人仍显示为约会而非会议邀请。
• 将内容保存为.ics文件并附加到邮件后，打开附件时参会人信息丢失，其余会议信息（主题、时间、地点等）均正常。

我的两种尝试代码（未解决问题）：
尝试1：通过字符串添加参会人

With olMeeting
    .requiredAttendees = requiredAttendeesString
    .Recipients.ResolveAll
    .subject = subject
    .BodyFormat = olFormatHTML
    .body = body
    .Start = meetingStartTime
    .End = meetingEndtime
    .location = location
    .ReminderMinutesBeforeStart = 15
End With
olMeeting.SaveAs desiredFileName, olICal

尝试2：遍历集合添加参会人

With olMeeting
    For Each currentAttendee In requiredAttendeesCollection
        .Recipients.Add CStr(currentAttendee)    
        .Recipients.item(.Recipients.Count).Type = olRequired
    Next
    .Recipients.ResolveAll
    .subject = subject
    .BodyFormat = olFormatHTML
    .body = body
    .Start = meetingStartTime
    .End = meetingEndtime
    .location = location
    .ReminderMinutesBeforeStart = 15
End With
olMeeting.SaveAs desiredFileName, olICal

解决方案 #

问题核心是未将AppointmentItem的MeetingStatus属性设置为会议状态，导致参会人信息无法被正确识别并写入ICS文件。添加参会人后必须设置该属性，才能将约会转换为会议邀请。

修正后的代码 #

尝试1（字符串添加参会人）修正版：

With olMeeting
    .RequiredAttendees = requiredAttendeesString
    ' 解析所有收件人，确保地址有效
    If .Recipients.ResolveAll Then
        ' 关键：设置为会议状态（olMeeting常量值为1）
        .MeetingStatus = olMeeting
        .Subject = subject
        .BodyFormat = olFormatHTML
        .Body = body
        .Start = meetingStartTime
        .End = meetingEndtime
        .Location = location
        .ReminderMinutesBeforeStart = 15
    Else
        ' 处理解析失败的情况
        MsgBox "部分参会人地址无法解析，请检查"
        Exit Sub
    End If
End With
' 保存为ICS文件
olMeeting.SaveAs desiredFileName, olICal

尝试2（集合遍历添加参会人）修正版：

With olMeeting
    For Each currentAttendee In requiredAttendeesCollection
        Dim recip As Outlook.Recipient
        Set recip = .Recipients.Add(CStr(currentAttendee))
        recip.Type = olRequired ' 标记为必填参会人
    Next
    ' 解析所有收件人
    If .Recipients.ResolveAll Then
        ' 关键：设置为会议状态
        .MeetingStatus = olMeeting
        .Subject = subject
        .BodyFormat = olFormatHTML
        .Body = body
        .Start = meetingStartTime
        .End = meetingEndtime
        .Location = location
        .ReminderMinutesBeforeStart = 15
    Else
        MsgBox "部分参会人地址无法解析，请检查"
        Exit Sub
    End If
End With
olMeeting.SaveAs desiredFileName, olICal

关键说明 #

• MeetingStatus = olMeeting：这是将约会转换为会议邀请的核心步骤，没有此设置，即使添加了参会人，Outlook仍会将其识别为普通约会，参会人信息无法写入ICS。
• Recipients.ResolveAll：确保所有参会人地址都能被Outlook解析，避免无效地址导致参会人信息丢失。
• 保存为ICS时，olICal是Outlook的内置常量（值为8），确保文件格式符合标准。

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