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
可能一次移不干净,多运行几次就是了。
征诛志异,三让两家王朝;功同开辟,一桮万古江南。