Question

我正在尝试为当前选择设置邮件消息类别。当我运行宏时，我最终只将一条消息设置为给定的类别。我使用以下代码（并且还尝试使用{until {to}使用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 正如Remou所说，选择合作是一种很好的倒退工作。马库斯

在选择中使用VBA设置类别似乎在Outlook 2007中不起作用

2 个答案: