Настройка категорий с использованием VBA для выбора не работает в Outlook 2007

Question

Я пытаюсь установить категории почтовых сообщений для текущего выбора. Когда я запускаю макрос, я получаю только одно сообщение с заданной категорией. Я использую следующий код (и также пытался использовать do, пока..loop, используя selection.count):

Sub SetSelectionComplete()
    Dim mailMsg As MailItem

    For Each mailMsg In Outlook.Application.ActiveExplorer.Selection
        mailMsg.Categories = "Complete"
    Next

End Sub

Есть идеи?

Answer 1

Сохраняйте элемент mailMsg каждый раз, например:

Sub SetSelectionComplete()
    Dim mailMsg As MailItem
    For Each mailMsg In Outlook.Application.ActiveExplorer.Selection
        mailMsg.Categories = "Complete"
        mailMsg.Save
    Next
End Sub

Answer 2

Янко Вам нужно позвонить Mailitem.Save Как говорит Рему, работа с выбором - это хорошо работать задом наперед. Marcus