如何在Outlook中回复或转发电子邮件时保持类别？

通常，当您回复或转发我已分类的电子邮件时，该类别将在发送的电子邮件中自动删除。如果您希望在回复或转发的外发电子邮件中保留该类别，则本文将介绍一种处理方法。

使用VBA代码回复或转发电子邮件时保持类别

1. 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。在 Microsoft Visual Basic应用程序 窗口，双击 本次展望会议 来自 Project1（VbaProject.OTM） 窗格以打开模式，然后将以下代码复制并粘贴到空白模块中。

VBA代码：在回复或转发电子邮件时保留类别：

Private WithEvents GExplorer As Outlook.Explorer
Private WithEvents GInspectors As Outlook.Inspectors
Private WithEvents GMailItem As Outlook.MailItem
Private GCategories As String
Private Sub Application_Startup()
    Dim xApp As Outlook.Application
    Set xApp = Outlook.Application
    Set GExplorer = xApp.ActiveExplorer
    Set GInspectors = xApp.Inspectors
End Sub
Private Sub GExplorer_SelectionChange()
    On Error Resume Next
    If TypeName(GExplorer.Selection.Item(1)) <> "MailItem" Then Exit Sub
    Set GMailItem = GExplorer.Selection.Item(1)
    GCategories = GMailItem.Categories
End Sub
Private Sub GInspectors_NewInspector(ByVal Inspector As Inspector)
    On Error Resume Next
    If TypeName(Inspector.CurrentItem) <> "MailItem" Then Exit Sub
   Set GMailItem = Inspector.CurrentItem
    GCategories = GMailItem.Categories
End Sub
Private Sub GMailItem_Forward(ByVal Forward As Object, Cancel As Boolean)
    Call GetCategories(Forward)
End Sub
Private Sub GMailItem_Reply(ByVal Response As Object, Cancel As Boolean)
    Call GetCategories(Response)
End Sub
Private Sub GMailItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call GetCategories(Response)
End Sub
Private Sub GetCategories(ByVal NewMail As Object)
    If NewMail.Class <> olMail Then Exit Sub
    NewMail.Categories = GCategories
End Sub

doc保留类别回复1