Макрос VBA с использованием общих входящих

Question

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

но я получаю эту ошибку: переменная объекта или переменная блока не установлена. Не могли бы вы сказать мне, что я делаю не так?

Sub Test()

Dim olApp As Object
Dim olNS As Object
Dim i As Long
Dim olShareName As Object


Set olApp = CreateObject("Outlook.Application")

Set olShareName = olNS.CreateRecipient("shared@inbox.com")
Set olNS = olApp.GetNamespace("MAPI").GetSharedDefaultFolder(olShareName, olFolderInbox)


'.Folders("Test")

i = 1

For Each olMail In olNS.Items
If InStr(olMail.Subject, "test") <> 0 Then

    Set oReply = olMail.Reply
    oReply.HTMLBody = "Thank you!!!" & oReply.HTMLBody
    oReply.Display


i = i + 1

End If


Next olMail



End Sub