outlook-vba 3.5 Перемещение папки из одной родительской папки в другую

пример#

Почему я хочу ссылаться на папку? В следующей части я покажу вам, как получить доступ к электронным письмам в указанной папке. Здесь я покажу вам, как переместить папку. Я создал папку с именем «Тест» в моей папке «Входящие». В 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