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.