我正在尝试为当前选择设置邮件消息类别.当我运行宏时,我最终只将一条消息设置为给定的类别.我使用以下代码(并且还尝试使用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
Run Code Online (Sandbox Code Playgroud)
有任何想法吗?
每次保存mailMsg项,如下所示:
Sub SetSelectionComplete()
Dim mailMsg As MailItem
For Each mailMsg In Outlook.Application.ActiveExplorer.Selection
mailMsg.Categories = "Complete"
mailMsg.Save
Next
End Sub
Run Code Online (Sandbox Code Playgroud)