如何使用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子文件夹移动到其他父文件夹

回答

相关问题