我使用以下vba代碼從我的收件箱文件夾中獲取電子郵件,並將它們移動到名爲suppliers的子文件夾。目前,電子郵件已從我的默認電子郵件收件箱移出,但我有一個名爲[email protected]的帳戶,我希望它從此收件箱中獲取電子郵件並將其移至名爲供應商的子文件夾。從非默認收件箱收到電子郵件?
有人可以告訴我如何改變GetDefaultFolder來做到這一點。感謝
Sub MoveItems()
Dim myNameSpace As Outlook.NameSpace
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Object
Set myNameSpace = Application.GetNamespace("MAPI")
Set myInbox = myNameSpace.GetDefaultFolder(olFolderInbox)
Set myItems = myInbox.Items
Set myDestFolder = myInbox.Folders("Supplier")
Set myItem = myItems.Find("[Subject] = 'Introduction'")
While TypeName(myItem) <> "Nothing"
myItem.Move myDestFolder
Set myItem = myItems.FindNext
Wend
End Sub
不GetDefaultFolder,但GetRootFolder。商店沒有GetDefaultFolder方法。 – JohnyL 2015-11-14 12:48:23
Store.GetDefaultFolder在Outlook 2010中添加。Store.GetRootFolder然後按名稱打開文件夾在本地化環境中不起作用。 – 2015-11-14 17:36:17
OP沒有提及Office版本,所以GetRootFolder可以在2007和2010+工作。 – JohnyL 2015-11-15 18:40:57