Outlook VBA：在未清項目上添加類別

Question

在Microsoft Outlook VBA中是否可以捕獲任何打開的郵件項目的打開事件？我想爲我打開的任何郵件項目添加一個類別標籤，以便爲替代別的項目提供替代的「未讀」選項。我已經試過這樣：

Private Sub MailItem_Open() 
    MsgBox "test" 
End Sub 

Answer 1

也許事情就行：

Public WithEvents myOlInspectors As Outlook.Inspectors 
Public myInspectorsCollection As New Collection 

Private Sub Application_Startup() 
    Initialize_handler 
End Sub 

Public Sub Initialize_handler() 
    Set myOlInspectors = Application.Inspectors 
End Sub 

Private Sub myOlInspectors_NewInspector(ByVal Inspector As Outlook.Inspector) 
If (Inspector.CurrentItem.Class = olMail) Then 

    If Inspector.CurrentItem.Parent = "Inbox" Then 
     strCats = Inspector.CurrentItem.Categories 

     If InStr(strCats, "Read") = 0 Then 
      If Not strCats = vbNullString Then 
       strCats = strCats & "," 
      End If 
      strCats = strCats & "Read" 
      Inspector.CurrentItem.Categories = strCats 
      Inspector.CurrentItem.Save 
     End If 
    End If 
End If 
End Sub 

上面應該在ThisOutlookSession。您需要確保您的安全級別允許使用宏。