VBA循环删除Outlook约会参会人运行不符合预期该如何解决？

问题根因 #

你的代码存在两个核心问题导致无法达到预期效果：

• 正向遍历Recipients集合时执行删除操作会触发索引错位：当你删除第N个参会人后，原本排在N+1位的参会人会自动前移到N的位置，下一轮循环直接取N+1位，就会跳过原本的N+1位参会人，最终只会删除约一半的参会人。
• 你没有对修改后的约会执行Save方法，所有改动仅存在于临时内存中，不会真正写入Outlook的日历数据，退出后就会恢复原状。

修正后代码 #

Dim i As Long
For Each Item In RestrictedItems
    If Item.Class = olAppointment Then
        ' 倒序遍历参会人集合，完全避免索引错位问题
        For i = Item.Recipients.Count To 1 Step -1
            Item.Recipients(i).Delete
        Next i
        ' 保存修改到本地日历
        Item.Save
    End If
Next Item

补充注意事项 #

• 如果你操作的是已发出的会议，删除所有参会人后会议会自动转为普通私人约会，默认不会给原有参会人发送任何通知。如果需要同步更新给参会人，保存后可以额外调用Item.Send方法推送会议变更。
• 如果要修改的是重复会议中的某一单例会，需要先获取该单例的独立实例再执行上述操作，避免误修改整个重复会议系列。
• 操作前建议先导出备份相关日历数据，避免误删无法找回。

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