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