Question

好的，我有一个Outlook 2003 VBA宏来清除邮件项目的类别，并将其分配给一个按钮。但是，我有一个已经应用的条件格式规则，所以当（在收件箱列表视图中）我运行宏时，类别被清除，但该项目的条件格式保持不变，直到我选择不同的项目。

如何在宏中强制清除（或重新应用）条件格式规则？即取消格式化该消息。

作为参考，代码看起来像这样（如果有更好的方法，请解释）：

Sub ClearCategories()
Dim msg As Outlook.MailItem
Select Case TypeName(Outlook.Application.ActiveWindow)
  Case "Explorer"
    Set msg = Outlook.Application.ActiveExplorer.Selection.Item(1)
  Case "Inspector"
    Set msg = Outlook.Application.ActiveInspector.CurrentItem
End Select
msg.Categories = ""
Set msg = Nothing
End Sub

Answer 1

想出来。在类别更改后需要保存并关闭项目。

msg.Close(olSave)

如何在VBA中重新格式化Outlook邮件项

1 个答案: