Come mantenere la categoria durante la risposta o l'inoltro di posta elettronica in Outlook?

Normalmente, quando rispondi o inoltri un'e-mail che ho classificato, la categoria verrà rimossa automaticamente dall'e-mail inviata. Se vuoi mantenere la categoria sulle e-mail in uscita nella risposta o nell'inoltro, questo articolo introdurrà un metodo per gestirlo.

Mantieni la categoria durante la risposta o l'inoltro di e-mail con codice VBA

Mantieni la categoria durante la risposta o l'inoltro di e-mail con codice VBA

1. Tenere premuto il tasto ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: mantieni la categoria durante la risposta o l'inoltro di e-mail:

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 conserva la risposta della categoria 1

3. Quindi salva e chiudi questa finestra di codice, chiudi e riavvia Outlook, ora, quando rispondi o inoltri un'e-mail con categoria, la categoria verrà mantenuta nel messaggio in uscita in Oggetti inviati, vedi screenshot:

doc conserva la risposta della categoria 2