Como o Outlook atribui automaticamente as categorias existentes quando elas aparecem nos e-mails recebidos?

Question

Eu criei algumas categorias de e-mail idênticas às palavras-chave que aparecem em e-mails relacionados e gostaria de ter as categorias aplicadas automaticamente a eles. Certamente eu poderia manualmente criar filtros para cada categoria individualmente, mas essa é uma tarefa tediosa que eu teria que lembrar de repetir toda vez que eu criasse uma nova categoria.

Portanto, gostaria de saber como configurar o Outlook (atualmente, em 2007, embora uma atualização para 2010 deva acontecer em breve), de modo que

for each incoming mail:
    for each category:
        if the mail (header or body) contains the category:
            assign that category to the mail

    

Answer 1

Crie a macro a seguir e use-a como filtro em todas as mensagens recebidas:

Sub CategorizeByKeywords(Item As Outlook.MailItem)
    Dim objCats As Categories
    Dim objCat As Category

    Set objCats = Application.GetNamespace("MAPI").Categories

    If objCats.Count > 0 Then
        For Each objCat In objCats
            If (InStr(Item.Subject, objCat.Name) > 0) Or _
              (InStr(Item.Body, objCat.Name) > 0) Then
                If Item.Categories = Null Then
                    Item.Categories = objCat.Name
                Else
                    Item.Categories = objCat.Name & "," & Item.Categories
                End If
            End If
        Next
    End If

    Item.Save
End Sub

Sub CategorizeSelectedMessages()
    Dim objItem As Outlook.MailItem
    For Each objItem In Application.ActiveExplorer.Selection
        Call CategorizeByKeywords(objItem)
    Next
End Sub