Vba 访问辅助电子邮件帐户中的子文件夹

我正在尝试将电子邮件从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

，我得到

运行时错误，找不到对象

算出

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

---

您将文件夹树从辅助文件夹导航到收件箱，然后返回到辅助文件夹的父文件夹

在你的回复帖子中，你改为

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