3.5 将文件夹从一个父文件夹移动到另一个父文件夹

为什么我要引用文件夹？在下一部分中，我将向你展示如何访问引用文件夹中的电子邮件。在这里，我将向你展示如何移动文件夹。我在收件箱中创建了一个名为 Test 的文件夹。在 TestMoveFolder() 中，我将 A 替换为包含我的收件箱的商店的名称。运行 TestMoveFolder() 将测试移动到已删除项目。

Sub TestMoveFolder()

  Dim FldrDest As Folder
  Dim FldrToMove As Folder

  Set FldrToMove = Session.Folders("A").Folders("Inbox").Folders("Test")
  Set FldrDest = Session.Folders("A").Folders("Deleted Items")
  
  FldrToMove.MoveTo FldrDest

End Sub