Comment conserver la catégorie tout en répondant ou en transférant un e-mail dans Outlook?

Normalement, lorsque vous répondez ou transférez un e-mail que j'ai catégorisé, la catégorie sera automatiquement supprimée sur l'e-mail envoyé. Si vous souhaitez conserver la catégorie sur les e-mails sortants lors de la réponse ou du transfert, cet article présentera une méthode pour y faire face.

Gardez la catégorie tout en répondant ou en transférant un e-mail avec le code VBA

Gardez la catégorie tout en répondant ou en transférant un e-mail avec le code VBA

1. Maintenez la touche ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Dans le Microsoft Visual Basic pour applications fenêtre, double-cliquez Cette session Outlook du Projet1 (VbaProject.OTM) volet pour ouvrir le mode, puis copiez et collez le code suivant dans le module vide.

Code VBA: conserver la catégorie lors de la réponse ou du transfert de courrier électronique:

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 garder la réponse de la catégorie 1

3. Ensuite, enregistrez et fermez cette fenêtre de code, fermez et redémarrez Outlook, maintenant, lorsque vous répondez ou transférez un e-mail avec la catégorie, la catégorie sera conservée dans le message sortant dans Éléments envoyés, voir capture d'écran:

doc garder la réponse de la catégorie 2