Estou escrevendo uma macro que localiza e responde ao email da caixa de correio compartilhada. Tudo funciona com minha caixa de correio pessoal, o problema é abordar o compartilhado no código. Eu tentei algo semelhante à solução desta questão: Como executar uma macro em um compartilhamento caixa de correio no Outlook 2013
mas recebo este erro: Variável de objeto ou com variável de bloco não definida. Você poderia, por favor, me dizer o que estou fazendo errado?
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("[email protected]")
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
Tags vba