Используйте этот макрос и добавьте его на ленту в качестве кнопки. Presto! Категории работают для IMAP почты. Конечно, они не синхронизируются с сервером, но они будут вставлены в локальный PST-файл для вашей учетной записи 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
Я написал надстройку COM для синхронизации категорий с серверами IMAP, которые поддерживают пользовательские флаги, но я не собираюсь делиться этим. Это только дало бы MSFT повод для дальнейшей задержки реализации этого самостоятельно.