Outlook'ta e-postayı yanıtlarken veya iletirken kategori nasıl korunur?

Normalde, kategorize ettiğim bir e-postayı yanıtladığınızda veya ilettiğinizde, kategori gönderilen e-postadan otomatik olarak kaldırılacaktır. Yanıtlama veya iletmede giden e-postalarda kategoriyi korumak istiyorsanız, bu makale bununla başa çıkmak için bir yöntem sunacaktır.

VBA kodu ile e-postayı yanıtlarken veya iletirken kategoriyi koruyun

VBA kodu ile e-postayı yanıtlarken veya iletirken kategoriyi koruyun

1. basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. In Uygulamalar için Microsoft Visual Basic pencere, çift tıklama Bu OutlookOturumu itibaren Proje1 (VbaProject.OTM) bölmesini açın ve ardından aşağıdaki kodu kopyalayıp boş modüle yapıştırın.

VBA kodu: E-postayı yanıtlarken veya iletirken kategoriyi koruyun:

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 kategori yanıtını koru 1

3. Ardından, bu kod penceresini kaydedin ve kapatın, Outlook'u kapatın ve yeniden başlatın, şimdi, kategori içeren bir e-postayı yanıtladığınızda veya ilettiğinizde, kategori, içindeki giden mesajda tutulacaktır. Eşya gönder, ekran görüntüsüne bakın:

doc kategori yanıtını koru 2