Outlook newMailex oder NewMail?

if objItem.Class = olMail then
...
..
end If

set objInbox = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)

for each mail in objInbox.Items
...
Next

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim varEntryIDs, objItem As Object, startFolder As Folder, i As Integer, colPRIds As New Collection
    ' Rootfolder des Stores angeben  
    Set startFolder = Application.Session.Stores("user@domain.de").GetRootFolder  
    
    varEntryIDs = Split(EntryIDCollection, ",")  
    For i = 0 To UBound(varEntryIDs)
        'Objekt holen  
        Set objItem = Application.Session.GetItemFromID(varEntryIDs(i))
        'wenn Objekt ein Mailitem ist  
        If objItem.CLASS = olMail Then
            'extrahiere die PR_SEARCH_ID Eigenschaft und füge sie der Collection hinzu  
            colPRIds.add getPRSearchKey(objItem)
        End If
    Next
    'kurz warten das die Regeln angewendet wurden  
    pause 1
    'Rekursive Funktion um alle Ordner nach den IDs zu durchsuchen  
    parseFolder startFolder, colPRIds
    
End Sub

'Rekursive Prozedur zumm Suchen in einer Ordnerstruktur  
Sub parseFolder(ByVal fldr As Folder, ByRef colMails As Collection)
    'Wenn der Ordner Mailitems enthält  
    If fldr.DefaultItemType = olMailItem Then
        'für jede ID in der Collection  
        For Each sID In colMails
            'Nur auf ungelesene Mails filtern  
            For Each itm In fldr.items.Restrict("[UNREAD] = True")  
                'wenn die ID in der Collection mit der des ITEMS übereinstimmt ...  
                If getPRSearchKey(itm) = sID Then
                    MsgBox "Die neue Mail mit dem Subject '" & itm.Subject & "' liegt jetzt im Ordner " & itm.Parent.FolderPath  
                End If
            Next
        Next
    End If
    'Prozedur ruft sich eslbst für alle Unterordner erneut auf  
    For Each subfolder In fldr.Folders
        parseFolder subfolder, colMails
    Next
End Sub

'Funktion die die MAPI Eigenschaft **PR_SEARCH_ID** einer Mail extrahiert  
Function getPRSearchKey(ByVal m As MailItem)
    getPRSearchKey = m.PropertyAccessor.BinaryToString(m.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x300B0102"))  
End Function

'Pause-Prozedur  
Sub pause(t As Integer)
    start = Timer
    Do While Timer < start + t
        DoEvents
    Loop
End Sub

'Setting up button in toolbar  
Private Sub Application_Startup()

    Dim menueBar As CommandBar, commandButton As CommandBarButton
    Set menueBar = ActiveExplorer.CommandBars("Standard")  
    Set commandButton = menueBar.FindControl(Type:=msoControlButton, Tag:="Toggle")  
    If commandButton Is Nothing Then
        Set commandButton = menueBar.Controls.Add(msoControlButton)
        With commandButton
            .Tag = "Toggle"  
            .Caption = "Start"  
            .Visible = True
            .OnAction = "Toggle"  
        End With
    else
       commandButton.Caption = "Start"  
    End If
    Set menueBar = Nothing
    Set commandButton = Nothing
End Sub

Set folder = Application.Session.Stores("user@domain.de").GetRootFolder.Folders("OrdnerXYZ")

Set folder = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders("OrdnerXYZ")