VB宏仅移动我已读电子邮件的一半

Question

我的Outlook中有一个宏，该宏将已读邮件从收件箱移到名为“读”的文件夹中。这是代码：

Stuff

但是，当我运行宏时，它仅复制一半的邮件。示例：我的收件箱中有500封邮件。当我运行宏时，它会将250封邮件留在我的收件箱中。当我再次运行它时，它留下了125封邮件，等等。

我在这里做错了什么？

Answer 1

尝试一下：

For index = oFilteredItems.Count to 1 Step -1
    oFilteredItems.Item(index).Move oFolderDst
Next

我怀疑正在移动的物品弄乱了For Each