相关疑难解决方法(0)

我似乎在将电子邮件从收件箱移动到收件箱的子文件夹时遇到问题。我一直以为我的代码一直工作到今天。我注意到它只移动了一半的电子邮件。我不需要“全部移动”代码，我有一个目的，但是我只需要移动每封电子邮件，而不是一次移动所有邮件（我需要检查每封电子邮件）。请在下面查看我的代码。myNamespace.Folders.Item(1).Folders.Item(2)是我的主要收件箱。

Sub MoveEachInboxItems()
    Dim myNamespace As Outlook.NameSpace
    Set myNamespace = Application.GetNamespace("MAPI")

    For Each Item In myNamespace.Folders.Item(1).Folders.Item(2).Items
        Dim oMail As Outlook.MailItem: Set oMail = Item
           Item.UnRead = True
           Item.move myNamespace.Folders.Item(1).Folders.Item(2).Folders("Other Emails")
    Next
End Sub