كيفية الحفاظ على الفئة أثناء الرد أو إعادة توجيه البريد الإلكتروني في Outlook؟

Author: Xiaoyang Last Modified: 2025-05-30

عادةً، عند الرد أو إعادة توجيه بريد إلكتروني تم تصنيفه، سيتم حذف الفئة تلقائيًا من البريد المرسل. إذا كنت ترغب في الاحتفاظ بالفئة في البريد الصادر أثناء الرد أو إعادة التوجيه، ستعلمك هذه المقالة بطريقة للتعامل مع هذا الأمر.

الحفاظ على الفئة أثناء الرد أو إعادة توجيه البريد الإلكتروني باستخدام كود VBA

الحفاظ على الفئة أثناء الرد أو إعادة توجيه البريد الإلكتروني باستخدام كود VBA

1. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

2. في نافذة Microsoft Visual Basic for Applications، انقر نقرًا مزدوجًا فوق ThisOutlookSession من لوحة Project1(VbaProject.OTM) لفتح النموذج، ثم قم بنسخ ولصق الكود التالي في الوحدة الفارغة.

كود VBA: الحفاظ على الفئة أثناء الرد أو إعادة توجيه البريد الإلكتروني:

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. بعد ذلك، احفظ وأغلق نافذة الكود هذه، ثم أغلق وأعد تشغيل Outlook. الآن، عندما تقوم بالرد أو إعادة توجيه بريد إلكتروني يحتوي على فئة، ستبقى الفئة في الرسالة الصادرة ضمن العناصر المرسلة، انظر إلى لقطة الشاشة: