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

【问题标题】：How to reformat Outlook mail item in VBA如何在 VBA 中重新格式化 Outlook 邮件项目
【发布时间】：2015-02-24 03:19:54
【问题描述】：

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

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

供参考，代码如下所示（如果有更好的方法，请说明）：

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

【问题讨论】：

标签： vba outlook

【解决方案1】：

想通了。更改类别后需要保存并关闭项目。

msg.Close(olSave)

【讨论】：