Получать электронные письма из папки SharedMailbox

Question

Я хочу получать все письма из определенной папки из общего почтового ящика. Я знаю, как это сделать из локального почтового ящика. Я попытался получить электронные письма подобным образом от SharedMailbox, и это работало один раз. Каждый раз, когда я запускаю макрос, в строке появляется ошибка:

Set folder = folder.Folders(Sub_Folder) in "Shared mailbox" block

Ошибка: ошибка времени выполнения '-2147221233 (8004010f)': ошибка автоматизации

Sub GetEmailsFromSharedMailboxFolder()

'Declare Variables
Dim app As Outlook.Application
Dim nameSpace As Outlook.nameSpace
Dim folder As Outlook.MAPIFolder
Dim objOwner As Object
Dim item As Object
Dim i As Integer
Dim Sub_Folder As String
Dim Shared_Mailbox As String

'Input Variables
Sub_Folder = "Very_Important"
Shared_Mailbox = "Giants_Hunters@Fake_Company.com"


'Shared Mailbox block
    'Set owner
    Set objOwner = nameSpace.CreateRecipient(Shared_Mailbox)
    'Set default Folder
    Set folder = nameSpace.GetSharedDefaultFolder(objOwner, 6)

    'Set subfolder
    If Sub_Folder <> "" Then
        Set folder = folder.Folders(Sub_Folder)
    End If
'Shared Mailbox block

'Save emials subject
i = 1
For Each item In folder.Items
    Range("A" & i) = item.Subject
    i = i + 1
Next

End Sub

Answer 1

Проблема решена: мне пришлось открыть outlook -> Файл -> Настройки учетной записи -> Настройки учетной записи ... Во вкладке «Электронная почта» нажмите кнопку «Изменить» и снимите флажок «Использовать режим Chached Exchange для загрузки электронной почты в файл данных Outlook», затемнажмите «Далее».