如何在VBA中重新格式化Outlook郵件項目

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)