Version - Microsoft Office Outlook SP3
Code:
For i = 1 To anApplication.Session.Folders.count
Set objDummy = anApplication.CreateItem(olMailItem)
Set objRecip = objDummy.Recipients.Add(strName)
objRecip.Resolve
If objRecip.Resolve = True Then
On Error Resume Next
Set objFolder = objNS.GetSharedDefaultFolder(objRecip,
olFolderInbox)
On Error GoTo 0
End If
Next
When I am trying to get unavailable address mailbox for me, this plugin
crash.