Outlook VBA доступ к подпапке в дополнительной учетной записи электронной почты

Question

Я пытаюсь переместить электронные письма из папки «Входящие» во вторичной учетной записи Outlook в подпапку этой учетной записи.У меня есть следующий код:

Sub newBox()
Dim myInbox As Outlook.Folder
Dim myDestFolder As Outlook.Folder
Dim myItems As Outlook.Items
Dim myItem As Object
Dim i As Integer

  Set myInbox = Session.Folders("Secondary").Folders("Inbox")
  Set myDestFolder = myInbox.Parent.Folders("Complete")


End Sub

Когда я пытаюсь установить пункт назначения, myDestFolder, я получаю ошибку во время выполнения, объект не может быть найден.Я не могу понять, почему ... кто-нибудь может мне помочь?

Answer 1

Вы переместились по дереву папок со «Вторичного» на «Входящие», а затем вернулись к myInbox.Parent, который является «Вторичным».

В своем ответном сообщении вы изменили на

Set myDestFolder = Session.Folders("Secondary").Folders("Inbox").Folders("Complete")

Это означает, что папка Полнаясразу под папкой "Входящие".

Sub newBox()

    Dim myInbox As Folder
    Dim myDestFolder As Folder

    Set myInbox = Session.Folders("Secondary").Folders("Inbox")
    Set myDestFolder = myInbox.Folders("Complete")

End Sub

Answer 2

разобрался

Set myDestFolder = Session.Folders("Secondary").Folders("Inbox").Folders("Complete")