Wie kann man die Kategorie beim Antworten oder Weiterleiten von E-Mails in Outlook beibehalten?

Author: Xiaoyang Last Modified: 2025-08-06

Normalerweise wird die Kategorie automatisch aus der gesendeten E-Mail entfernt, wenn Sie auf eine E-Mail antworten oder sie weiterleiten, die Sie kategorisiert haben. Wenn Sie die Kategorie bei ausgehenden E-Mails beim Antworten oder Weiterleiten beibehalten möchten, stellt dieser Artikel eine Methode zur Lösung dieses Problems vor.

Kategorie beim Antworten oder Weiterleiten von E-Mails mit VBA-Code beibehalten

Kategorie beim Antworten oder Weiterleiten von E-Mails mit VBA-Code beibehalten

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Doppelklicken Sie im Fenster Microsoft Visual Basic for Applications auf ThisOutlookSession im Bereich Project1(VbaProject.OTM), um den Modus zu öffnen, und kopieren Sie dann den folgenden Code in das leere Modul.

VBA-Code: Kategorie beim Antworten oder Weiterleiten von E-Mails beibehalten:

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. Speichern und schließen Sie dann dieses Codefenster, schließen Sie Outlook und starten Sie es neu. Nun wird beim Antworten oder Weiterleiten einer E-Mail mit Kategorie diese auch in der ausgehenden Nachricht in den Gesendeten Elementen beibehalten, siehe Screenshot: