Use esta macro e adicione-a à fita como um botão. Presto! As categorias funcionam para o correio IMAP. Claro, eles não são sincronizados com o servidor, mas eles vão ficar no arquivo PST local para sua conta IMAP.
Public Sub Categorize()
Dim sel As Outlook.Selection
Set sel = Application.ActiveExplorer.Selection
If sel Is Nothing Then
Exit Sub
End If
Dim obj As Object
Dim selCats As String
Dim gotCats As Boolean
For Each obj In sel
If Not gotCats Then
obj.ShowCategoriesDialog
selCats = obj.Categories
gotCats = True
Else
' ShowCategoriesDialog updates the first one free of charge.
' We handle the remaining selected items ourselves.
obj.Categories = selCats
obj.Save
End If
Next obj
End Sub
Eu escrevi um suplemento COM para sincronizar categorias com servidores IMAP compatíveis com sinalizadores personalizados, mas não os compartilharei. Isso só daria à MSFT uma desculpa para atrasar ainda mais a implementação disso.