Add the shared account Mailbox to your own profile.
See itemAdd information here http://www.outlookcode.com/article.aspx?id=62
See Run Rules Now sample here http://www.vboffice.net/en/developers/run-rules-now
Option Explicit
' Should look like this untested code
' In ThisOutlookSession
Private WithEvents olSharedMailboxInboxItems As Items
Private Sub Application_Startup()
Dim objNS As Namespace
' This code is applicable where the shared mailbox is added to your profile
Set objNS = Application.GetNamespace("MAPI")
On Error GoTo SharedMailboxNotInProfile
Set olSharedMailboxInboxItems = objNS.Folders("SharedMailbox Name").Folders("Inbox").Items
On Error GoTo 0
Debug.Print vbCr & "Adding items to the - Shared Mailbox Inbox will trigger SharedMailboxInboxItems_ItemAdd"
GoTo ExitRoutine
SharedMailboxNotInProfile:
Debug.Print "olSharedMailboxInboxItems_ItemAdd works if SharedMailbox is in the profile."
ExitRoutine:
Set objNS = Nothing
End Sub
Private Sub SharedMailboxInboxItems_ItemAdd(ByVal Item As Object)
If TypeOf Item Is MailItem Then
MsgBox "Item added to SharedMailboxInbox."
' Rules apply to the folder not the added message
' In the rule you will likely want to move the item so it is not processed again
End If
End Sub