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

问题描述

我正在尝试将电子邮件从辅助 Outlook 帐户中的收件箱移动到该帐户中的子文件夹.

I am trying to move emails from the inbox in a secondary Outlook account to a sub-folder in that account.

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，我得到

When I try to set the destination, myDestFolder, I get

运行时错误，找不到对象.

推荐答案

您将文件夹树从辅助"导航到收件箱"，然后返回到辅助"myInbox.Parent.

You navigated the folder tree from Secondary to Inbox then back to myInbox.Parent which is Secondary.

在您的回答帖子中，您更改为

In your answer post you changed to

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

这表示 Complete 文件夹位于收件箱下方.

This indicates the Complete folder is immediately under the Inbox.

Sub newBox()

    Dim myInbox As Folder
    Dim myDestFolder As Folder

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

End Sub

这篇关于访问辅助电子邮件帐户中的子文件夹的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！