auto clear categories on new email / Outlook

macro.vb

Private Sub Application_NewMailEx(ByVal EntryIDCollection As String)
    Dim objNS As Outlook.NameSpace
    Dim objEmail As Outlook.MailItem
    Dim strIDs() As String
    Dim intX As Integer
    
    strIDs = Split(EntryIDCollection, ",")
    
    For intX = 0 To UBound(strIDs)
        Set objNS = Application.GetNamespace("MAPI")
        
        Set objEmail = objNS.GetItemFromID(strIDs(intX))
        objEmail.Categories = ""
        objEmail.Save
    Next
    
    Set objEmail = Nothing
End Sub