使用outlook vba监视类别字段中的更改

Private WithEvents myItems As Outlook.Items

Private Sub Application_Startup()
    Dim myNamespace As Outlook.NameSpace
    Set myNamespace = Application.GetNamespace("MAPI")
    Set myItems = myNamespace.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub myItems_ItemChange(ByVal Item As Object)
    On Error Resume Next
    
    ' 检查更改的项目是否为邮件
    If TypeOf Item Is Outlook.MailItem Then
        Dim mailItem As Outlook.MailItem
        Set mailItem = Item
        
        ' 检查类别字段是否发生更改
        If mailItem.Categories <> "" Then
            ' 执行特定的操作，例如发送通知或保存到特定文件夹
            ' 这里可以根据具体需求进行自定义操作
            MsgBox "类别字段已更改为：" & mailItem.Categories
        End If
    End If
End Sub