Outlook 2010使用VBA将一个MAPIFolder目录下的MailItem移到它的一个子目录下

Sub test()
    Dim objSession As Outlook.NameSpace
    Dim objFolder1 As Outlook.MAPIFolder
    Dim objFolder2 As Outlook.MAPIFolder
    Dim objItem As Outlook.MailItem
    
    Set objSession = Application.Session
    Set objFolder1 = objSession.DefaultStore.GetRootFolder().Folders("***")
    Set objFolder2 = objFolder1.Folders("***")
    
    For Each objItem In objFolder1.Items
        objItem.Move objFolder2
    Next
    
    Set objItem = Nothing
    Set objFolder1 = Nothing
    Set objFolder2 = Nothing
    Set objSession = Nothing
End Sub

 可能一次移不干净，多运行几次就是了。