Как переместить электронные письма общего ящика (Входящие) в определенную папку

Question

У меня есть сценарий outlook, который проверяет электронную почту определенного субъекта в общем почтовом ящике (Входящие) и записывает данные тела письма в Excel (еще не добавив код) и должен перейти в папку MIAL, однако я получаю сообщение об ошибке "Переменная не определена"при перемещении писем в папку MIAL.

Папка (MIAL) была создана мной вручную, но когда я пишу код для перемещения писем в папку по умолчанию, такую ​​как" Черновики "или" Отправленная папка ", она работает абсолютно нормально.

Option Explicit
Public Sub Example()
    Dim olNs As Outlook.NameSpace
    Set olNs = Application.GetNamespace("MAPI")

    Dim Recip As Outlook.Recipient
    Set Recip = olNs.CreateRecipient("Import-BOM@email.com") 'update email

    Dim SharedInbox As Outlook.Folder

    Set SharedInbox = olNs.GetSharedDefaultFolder(Recip, _
                                         olFolderInbox) 'Inbox

    Dim Movefolder As Outlook.Folder
    Set Movefolder = olNs.GetSharedDefaultFolder(Recip, _
                                         olFolderMIAL) 'Folder

    Dim Item As Outlook.MailItem


    For Each Item In SharedInbox.Items
        'If (Item.subject = "TSP") Then
            Debug.Print Item.subject
            Item.Move Movefolder
        'End If
    Next

End Sub

Ошибка компиляции: переменная не определена Общий почтовый ящик Outlook Снимок экрана

Answer 1

Папка перемещения должна быть

Dim Movefolder As Outlook.folder
Set Movefolder = SharedInbox.Folders("MIAL")

Answer 2

Существуют определенные папки по умолчанию, которые можно описать аналогично olFolderInbox, чтобы использовать их в качестве ярлыков.

Длинные пути ссылаются на созданные вручную папки.

Один из способов ссылки наПапка на том же уровне, что и папка «Входящие», предназначена для перемещения дерева папок из этой папки в почтовый ящик и затем обратно обратно.

Set Movefolder = SharedInbox.Parent.Folders("MIAL")