如何使用Excel VBA將Outlook子文件夾移動到其他父文件夾

如何將Outlook子文件夾（及其中的所有項目）移動到不同的父文件夾？如何使用Excel VBA將Outlook子文件夾移動到其他父文件夾

實施例：

子文件夾移動：實施例事件2017

EXISTING：觀\個人文件夾\審計\實施例事件2017

AFTER代碼運行：觀\個人文件夾\審計\過往活動\示例活動2017

謝謝！

來源

2017-05-06 Joe Patrick

爲什麼-1？我一直在使用Google搜索和搜索幾天，對於任何想要管理與他們工作的Excel工作簿相關的Outlook文件夾的用戶來說，這都非常明顯，非常有用。 –

降低投票的一個可能的原因是您的帖子看起來像需求而不是編程問題。 http://stackoverflow.com/help/how-to-ask。至於你的問題，請參閱MoveTo https://msdn.microsoft.com/en-us/library/office/ff865640(v=office.15).aspx。如果你做到了這一點，那麼你可以在回答帖子中自我回答，並接受你自己的答案。如果你不能使它工作，那麼你可以更新問題帖子。 – niton

你正在運行哪個office版本？ – 0m3r

在Excel中，這將從其父文件夾「new」中移動子文件夾「test」，使其成爲「已處理」的子文件夾。（需要參考Outlook）

Sub moveSubFolderToNewFolder() 

    Dim objOutlook As Outlook.Application 
    Dim objNamespace As Outlook.Namespace 
    Dim objSourceFolder As Outlook.MAPIFolder 
    Dim objDestFolder As Outlook.MAPIFolder 
    Dim objFolder As Folder 

    Set objOutlook = Outlook.Application 
    Set objNamespace = objOutlook.GetNamespace("MAPI") 
    Set objSourceFolder = objNamespace.GetDefaultFolder(olFolderInbox) 
    Set objFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folders("new").Folders("test") 
    Set objDestFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folders("processed") 

    objFolder.MoveTo objDestFolder 

    Set objDestFolder = Nothing 

End Sub

來源

2017-05-07 23:47:00

如何使用Excel VBA將Outlook子文件夾移動到其他父文件夾

回答

相關問題