如何在Outlook中的同一會話中自動為所有郵件設置相同的顏色類別

立即分享:

如果要在同一對話中為所有電子郵件設置相同的顏色類別,則可以利用本文介紹的VBA代碼來實現。

為了更好地分類和管理電子郵件,您可能習慣於應用顏色類別。 此外,如果您有很多對話(即Outlook中的電子郵件線程),以便更好地識別一個對話中的電子郵件,則可能希望對同一對話中的所有郵件應用相同的顏色類別。 毫無疑問,將顏色類別手動設置為電子郵件線程非常繁瑣。 因此,在對話中對電子郵件進行分類時,為什麼不讓Outlook自動為其餘顏色分配相同的顏色類別? 您可以在以下內容中利用一段VBA代碼來實現它,而不會費力。

自動將相同顏色類別設置為Outlook中相同會話中的所有郵件

自動將相同顏色類別設置為相同會話中的所有郵件

  1. 首先,您應該啟動Outlook應用程序。
  2. 然後在Outlook主窗口中,按“ Alt + F11”鍵按鈕。
  3. 接下來,您將訪問Outlook VBA編輯器窗口,您應在其中找到並打開“ ThisOutlookSession”項目。
  4. 隨後,將以下VBA代碼複製到該項目窗口中。
Public WithEvents objExplorer As Outlook.Explorer
Public WithEvents objMail As Outlook.MailItem

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

Private Sub objExplorer_SelectionChange()
    On Error Resume Next
    If objExplorer.Selection.Item(1).Class = olMail Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objMail_PropertyChange(ByVal Name As String)
    Dim objConversation As Outlook.Conversation
    Dim objStore As Outlook.Store
    Dim strCategories As String
 
    'When assigning color categories to the currently selected mail
    If Name = "Categories" Then
       strCategories = objMail.Categories
 
       Set objStore = objMail.parent.Store
 
       If objStore.IsConversationEnabled Then
          'Get the conversation
          Set objConversation = objMail.GetConversation
 
          If Not (objConversation Is Nothing) Then
             'Assign the same color categories to the mails in this conversation
             objConversation.SetAlwaysAssignCategories strCategories, objStore
          End If
       End If
    End If
End Sub

VBA代碼-自動將相同顏色類別設置為相同會話中的所有郵件

  1. 之後,您應該簽署此代碼。
  2. 以後,您需要更改Outlook宏安全設置以允許進行數字簽名的宏。
  3. 最終,您可以tar您的Outlook應用程序可以激活此宏。
  4. 從現在開始,每次將任何顏色類別分配給對話中的一封郵件時,Outlook都會自動將相同的顏色類別分配給該對話中的其餘電子郵件。

謹慎處理PST文件

與Word文檔或Excel電子表格一樣,PST文件也同樣容易受到攻擊。 因此,為了防止PST數據損壞並避免困難 PST維修,最好始終保持PST文件的狀態。 例如,您需要當心在Outlook中的日常處理並定期備份PST文件。 此外,如有可能,您可以準備出色的工具,例如 DataNumen Outlook Repair 提前。

作者簡介:

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

立即分享:

評論被關閉。