На этот вопрос уже есть ответ здесь:

Кажется, у меня возникают проблемы с перемещением электронной почты из папки «Входящие» в подпапку папки «Входящие». Я всегда думал, что мой код работает до сегодняшнего дня. Я заметил, что это перемещает только половину электронных писем. Мне не нужен код «переместить все», у меня есть для этого цель, но мне просто нужно переместить каждое электронное письмо, а не все сразу (мне нужно было проверять каждое электронное письмо). Пожалуйста, посмотрите на мой код ниже.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