Outlook'ta e-postayı yanıtlayıp kategori bilgisini korumak nasıl yapılır?

Author: Xiaoyang Last Modified: 2025-06-10

Normalde, kategorize ettiğiniz bir e-postayı yanıtlayınca veya ilettiğinizde, gönderilen e-postadan kategori otomatik olarak kaldırılır. Eğer yanıtla veya iletme sırasında giden e-postalarda kategoriyi korumak istiyorsanız, bu makale size bunu gerçekleştirmek için bir yöntem sunacaktır.

VBA kodu ile e-postayı yanıtlayıp kategori bilgisini koruma

VBA kodu ile e-postayı yanıtlayıp kategori bilgisini koruma

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basın.

2. Microsoft Visual Basic for Applications penceresinde, Project1(VbaProject.OTM) bölmesinden ThisOutlookSession öğesine çift tıklayın, modu açın ve ardından aşağıdaki kodu boş modüle kopyalayıp yapıştırın.

VBA kodu: Yanıtlarken veya e-postayı ileterek kategoriyi koruma:

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. Ardından bu kod penceresini kaydedip kapatın, Outlook'u kapatıp yeniden başlatın. Artık bir e-postayı kategoriyle yanıtlayınca veya iletince, kategori Gönderilen Öğeler'deki giden mesajda korunacaktır, ekran görüntüsüne bakın: