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

好的,我有一个Outlook2003vba宏来清除邮件的类别,它被分配给一个按钮。但是,我有一个已经应用的条件格式规则,所以当(在“收件箱列表”视图中)运行宏时,类别将被清除,但在选择其他项目之前,该项目的条件格式将保持不变。

如何在宏中强制清除(或重新应用)条件格式规则?即取消对该消息的格式化。

作为参考,代码如下(如果有更好的方法,请解释):

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