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

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

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

---

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

1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، انقر مرتين هذه الجلسة من مشروع 1 (VbaProject.OTM) لفتح الوضع ، ثم انسخ الكود التالي والصقه في الوحدة النمطية الفارغة.

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

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