VBA macro replying to an e-mail from shared mailbox

[Tomek123]

Hi guys

<tbody>
[TD="class: votecell"][/TD]
[TD="class: postcell"] I'm writing macro that finds and reply to mail from shared mailbox. Everything works with my personal mailbox, the problem is addressing the shared one in the code. I tried something similar to the solution from this question: How to run a macro on a shared mailbox in Outlook 2013
but I receive this error: Object variable or with block variable not set. Could you please tell me what I'm doing wrong?



[/TD]

</tbody>

<code>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</code>