VBA移动电子邮件文件夹＆amp;内容

Question

我难以使用脚本将电子邮件文件夹（＆amp; contents）移动到其他父文件夹。此文件夹在父收件箱下不可用。我对VBA有基本的，自学的理解。
例如。 ThisOutlookSession / [FolderA]移动到ThisOutlookSession / Inbox / [FolderA]
我找到了很多移动电子邮件的例子而不是文件夹。

提前感谢您的任何帮助。

编辑：

![](image.png){width=200px}

Answer 1

您可以使用Folder.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

您可能会发现Getting Started with VBA in Outlook 2010文章很有帮助。