移动文件夹，而不是 item.move答案

【问题标题】：Move a folder, not item.move移动文件夹，而不是 item.move
【发布时间】：2015-07-10 02:37:12
【问题描述】：

我正在尝试在我的邮箱中下订单，我已经设置了几个宏来根据非常具体的偏好来订购电子邮件，Outlook 规则无法管理（我认为...）

我最终得到了几个文件夹，里面有几个对话。我只想将包含旧对话的文件夹移动到另一个文件夹。

我正在尝试移动包含他所有内容的文件夹，包括子文件夹和电子邮件...

我可以为此编写一个递归函数，但我只是想确定没有其他编码选项。

Folder.Move(ColdCaseFolder)

不会工作...

我习惯了 VBA 宏，但我在 MSDN 上找不到任何关于移动文件夹的文章，只有项目...

【问题讨论】：

标签： vba outlook directory

【解决方案1】：

Outlook 对象模型中的 Folder 类不提供 Move 方法。您需要改用MoveTo 方法。例如：

Sub MoveFolder() 
  Dim myNameSpace As Outlook.NameSpace 
  Dim myFolder As Outlook.Folder 
  Dim myNewFolder As Outlook.Folder 

  Set myNameSpace = Application.GetNamespace("MAPI") 
  Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts) 
  Set myNewFolder = myFolder.Folders.Add("My Test Contacts") 
  myNewFolder.MoveTo myNameSpace.GetDefaultFolder(olFolderInbox) 
End Sub

【讨论】：

像魅力一样工作！太感谢了！（是的，我感觉有点愚蠢，不能单独解决这个问题......）:) Seeya！