添加“完成”类别后删除邮件的所有其他类别

Question

我使用多个类别来跟踪某些邮件的进度。

完成任务后，我将关联的邮件标记为“完成”类别，并希望删除所有其他附加类别。

Answer 1

将

MailItem.Categories

属性设置为

";"

分隔的类别列表。

"Done"

在你的情况下。

Answer 2

您可以替换现有类别：

Option Explicit

Public Sub MarkSelectedItemDone()
    Dim olItem As Object
    
    Set olItem = ActiveExplorer.selection(1)
    
    ' Replace existing categories, if any
    olItem.categories = "Done"
    olItem.Save
End Sub