The basic idea is here http://www.outlookcode.com/article.aspx?id=62
Option Explicit
Private WithEvents olInboxItems As Items
Private Sub Application_Startup()
Dim objNS As NameSpace
Set objNS = Application.Session
' instantiate objects declared WithEvents
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
Set objNS = Nothing
End Sub
Private Sub olInboxItems_ItemAdd(ByVal Item As Object)
' do something
End Sub
Instead of
Set olInboxItems = objNS.GetDefaultFolder(olFolderInbox).Items
try this more general format
Set olInboxItems = objNS.Folders("name of shared mailbox”).Folders("Inbox").Items