Я пытаюсь установить категории сообщения электронной почты для текущего выбора. Когда я выполняю макрос, я заканчиваю только в единственном сообщении, устанавливаемом на данный categorie. Я Использую следующий код (и также попытались использовать до.. цикл с помощью selection.count
):
Sub SetSelectionComplete()
Dim mailMsg As MailItem
For Each mailMsg In Outlook.Application.ActiveExplorer.Selection
mailMsg.Categories = "Complete"
Next
End Sub
Какие-либо идеи?
Janco Вам нужно позвонить в Mailitem.Save Как говорит Римо, работая с выделением, лучше работать в обратном направлении . Маркус
Сохраняйте элемент mailMsg каждый раз, например, так:
Sub SetSelectionComplete()
Dim mailMsg As MailItem
For Each mailMsg In Outlook.Application.ActiveExplorer.Selection
mailMsg.Categories = "Complete"
mailMsg.Save
Next
End Sub