¿Cómo mantener la categoría al responder o reenviar correos electrónicos en Outlook?

Normalmente, cuando responde o reenvía un correo electrónico que he categorizado, la categoría se eliminará automáticamente en el correo electrónico enviado. Si desea mantener la categoría en los correos electrónicos salientes al responder o reenviar, este artículo presentará un método para lidiar con ella.

Mantenga la categoría mientras responde o reenvía correos electrónicos con código VBA

Mantenga la categoría mientras responde o reenvía correos electrónicos con código VBA

1. Mantenga pulsado el botón ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.

Código de VBA: mantenga la categoría mientras responde o reenvía el correo electrónico:

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 mantener respuesta de categoría 1

3. Luego guarde y cierre esta ventana de código, cierre y reinicie Outlook, ahora, cuando responda o reenvíe un correo electrónico con categoría, la categoría se mantendrá en el mensaje saliente en Elementos enviados, ver captura de pantalla:

doc mantener respuesta de categoría 2