小编Jan*_*nco的帖子

我正在尝试为当前选择设置邮件消息类别.当我运行宏时,我最终只将一条消息设置为给定的类别.我使用以下代码(并且还尝试使用do until..loop使用selection.count):

Sub SetSelectionComplete()
    Dim mailMsg As MailItem

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

End Sub

有任何想法吗？