'This macro is automagically triggered any time an item enters inbox folder
Private Sub items_ItemAdd(ByVal itm As Object)
    'This is to be used largely for notifications from SQL and other
    'automated notifications, which notifications are not necessarily important
    'to look at in the immediate and can be archived.
    Dim recip As Recipient
    Dim moveItem As Boolean

    For Each recip In itm.Recipients
        moveItem = False

        If Not matchesRecipient(recip.Name) Then
            Exit Sub

Private Function matchesSender(sndr As String) As Boolean
    'Senders to begin applying the filters to:
    senderMatches = Array( _
        "partnerlinksupport", _
        "SQLAdmin", _
        "biz", _
        "intdev" _
    )

    Dim i As Integer
    For i = LBound(senderMatches) To UBound(senderMatches)
        If InStr(sndr, senderMatches(i)) > 0 Then
            matchesSender = True
            Exit Function
        End If
    Next i
End Function

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As mailItem
Private bDiscardEvents As Boolean

'Declarations used for customer mail filter script (see Outlook email Rules)
    'Declare Outlook application and inbox variables:
    Private nameSpace As Outlook.nameSpace
    Private inbox As Outlook.Folder
    'Listener:
    Private WithEvents items As Outlook.items

Sub InitOutlookEnv()
    'Set up Outlook application and inbox variables if they are not already
    If (nameSpc Is Nothing Or inbox Is Nothing) Then
        Set nameSpc = Application.GetNamespace("MAPI")
        Set inbox = nameSpc.GetDefaultFolder(olFolderInbox)
    End If
End Sub

Private WithEvents oExpl As Explorer 'remains Nothing all along == no events handled
Private WithEvents oItem As mailItem 'remains Nothing all along == no events handled

Private Sub Application_Startup()
    Set oExpl = Application.ActiveExplorer
    bDiscardEvents = False
    'Used for customer mail filter script (see Outlook email Rules)
    Set nameSpace = Application.GetNamespace("MAPI")
    Set inbox = nameSpace.GetDefaultFolder(olFolderInbox)
    Set items = Application.GetNamespace("MAPI") _
                       .GetDefaultFolder(olFolderInbox) _
                       .items
End Sub