如何用VBA替換Outlook項目的顏色類別

Outlook解決方案 2025 年 9 月 29 日
立即分享：

如果要替換Outlook項目的顏色類別，則在分配新類別時需要刪除原始的顏色類別。 因此，在本文中，我們將教您如何通過VBA自動執行此操作。

我們在Outlook中使用顏色類別的主要原因是為了更好地分類和管理Outlook項目。 另外，Outlook允許我們為一項分配一種或多種顏色類別。 但是，分配給單個項目的類別過多，有時可能會使您的分類規則混亂。 因此，許多用戶希望替換顏色類別而不是覆蓋類別。 在這裡，我們將為您提供有效的方式。

用VBA替換Outlook項目的顏色類別

替換Outlook項目的顏色類別

  1. 首先，啟動Outlook應用程序。
  2. 然後切換到“開發人員”選項卡，然後單擊“ Visual Basic”按鈕或按“ Alt + F11”快捷鍵。
  3. 接下來，您將進入“ Microsoft Visual Basic for Applications”窗口。
  4. 此時，您應該雙擊左側的“ ThisOutlookSession”項目以將其打開。
  5. 隨後，將以下VBA代碼複製到該項目窗口中。
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objInspectors As Outlook.Inspectors
'Take Mailitem as an example
Public WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    Set objMail = objExplorer.Selection.Item(1)
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    Set objMail = Inspector.CurrentItem
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim strSpecificCategory As String
    Dim strCategories As String
    Dim varArray As Variant
    Dim i As Long
  
    If Name = "Categories" Then
       strCategories = objMail.Categories
       varArray = Split(objMail.Categories, ",")
       If UBound(varArray) >= 1 Then
          'If want to get a confirmation before removing the original category
          'Add the following lines
          'Dim strPrompt As String
          'Dim nResponse As Integer
          'strPrompt = "Do you want to remove the original color category?"
          'nResponse = MsgBox(strPrompt, vbQuestion + vbYesNo, "Color Category Assignment")
          'If nResponse = vbYes Then
          For i = 0 To UBound(varArray)
              'Remove the previous color categories
              varArray(1) = ""
              'Rebuild the categories
              objMail.Categories = Join(varArray, ",")
              Exit Sub
          Next i
          'End If
       End If
    End If
End Sub

VBA代碼-替換Outlook項目的顏色類別

  1. 之後，您應該為該新宏分配一個數字證書。
  2. 稍後，您需要檢查Outlook宏設置以確保啟用簽名的宏。
  3. 最後，您需要重新啟動 Outlook 以啟動新的 VBA 專案。
  4. 從現在開始，每當您為一個項目分配一個新類別時，上一個將被自動刪除。

處理棘手的Outlook問題

由於Outlook容易出現錯誤和損壞，因此您將在Outlook中遇到各種問題。 因此，您應該採取足夠的預防措施。 例如，建議為您的PST文件進行定期備份。 而且，您應該掌握強大的功能 PST修復 工具，例如 DataNumen Outlook Repair.

作者簡介：

Shirley Zhang是的數據恢復專家 DataNumen，Inc.是數據恢復技術的全球領導者，包括 恢復 Sql Server 和Outlook修復軟件產品。 欲了解更多信息，請訪問 萬維網。datanumen.COM

立即分享：

評論被關閉。