Private Sub Application_NewMail()
    Dim i As Integer
    i = 1
    For Each objitem In Application.ActiveExplorer.Selection
 
        If objitem.Categories = "" Then
        Else
            MsgBox ("Mail: " & i)
            i = i + 1
        End If
 
    Next      
End Sub

____________________________________

...vorhanden!