我似乎遇到了将收件箱中的邮件移动到子文件夹的问题。我一直认为我的代码是有效的,但是今天才发现它只移动了一半的邮件。我不需要"全部移动"的代码,因为我有一个目的,我只需要逐个移动每封邮件而不是一次性移动所有的邮件(我需要检查每封邮件)。请看下面的代码。 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