VBA使用For Each循环删除Outlook约会参会人跳删问题如何解决

你遇到的间隔删除问题是集合正向遍历删除的典型共性问题：当你使用For Each正向遍历Recipients参会人集合时，每删除一个元素，集合总长度会自动减1，后续元素会整体向前移动补位，而循环指针仍按原顺序向后移动，就会跳过刚补位到当前索引的元素，最终出现隔一个删一个的现象。

For Each Item In RestrictedItems
    If Item.Class = olAppointment Then
        ' 倒序遍历规避删除导致的索引偏移问题
        Dim i As Long
        For i = Item.Recipients.Count To 1 Step -1
            Item.Recipients.Item(i).Delete
        Next i
        ' 保存约会修改使操作生效
        Item.Save
    End If
Next Item

• 采用倒序遍历逻辑：从集合最后一个元素向第一个元素遍历，删除任意元素都不会影响未遍历部分的索引位置，不会出现漏删
• 修复了原代码中多余的End If语法错误
• 新增Item.Save语句，Outlook约会修改后必须执行保存操作，修改才会同步生效

如果不需要删除所有参会人，仅删除特定类型参会人，可在删除前增加类型判断，示例如下：

' 仅删除可选参会人示例
If Item.Recipients.Item(i).Type = olOptionalAttendee Then
    Item.Recipients.Item(i).Delete
End If

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