Hoe behoudt u de categorie wanneer u een e-mail beantwoordt of doorstuurt in Outlook?

Normaal gesproken wordt de categorie automatisch uit het verzonden bericht verwijderd wanneer u een gecategoriseerde e-mail beantwoordt of doorstuurt. Dit artikel beschrijft een methode om de categorie toch te behouden in uitgaande e-mails bij het beantwoorden of doorsturen.

Categorie behouden bij het beantwoorden of doorsturen van een e-mail met VBA-code

---

Categorie behouden bij het beantwoorden of doorsturen van een e-mail met VBA-code

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen, en plak vervolgens de volgende code in de lege module.

VBA-code: Categorie behouden bij het beantwoorden of doorsturen van een 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

3. Sla dit codovenster vervolgens op in Verzonden items, sluit Outlook af en start het opnieuw. Vanaf nu blijft de categorie behouden in het uitgaande bericht wanneer u een gecategoriseerde e-mail beantwoordt of doorstuurt. Zie schermafbeelding: