كيف يمكن تمييز رسائل البريد الإلكتروني غير المقروءة الأقدم من عدد أيام معيّن كمقروءة تلقائيًا في Outlook؟

إذا كان مجلد البريد الوارد يحتوي على عدة رسائل غير مقروءة، يمكنك عادةً استخدام خاصية «تمييز الكل كمقروء» لوضع علامة مقروءة على جميع الرسائل دفعة واحدة. ولكن، هل جرّبت من قبل تمييز الرسائل غير المقروءة التي تجاوز عمرها عددًا معيّنًا من الأيام كمقروءة تلقائيًّا في Outlook—دون الحاجة إلى ضبط ذلك يدويًّا في كل مرة؟

تمييز رسائل البريد الإلكتروني غير المقروءة الأقدم من عدد أيام معيّن كمقروءة تلقائيًّا باستخدام كود VBA

---

تمييز رسائل البريد الإلكتروني غير المقروءة الأقدم من عدد أيام معيّن كمقروءة تلقائيًّا باستخدام كود VBA

لتمييز جميع رسائل البريد الإلكتروني غير المقروءة الأقدم من عدد أيام معيّن كمقروءة تلقائيًّا، يمكن لرمز VBA التالي أن يساعدك:

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

2. في نافذةمايكروسوفت فيجوال بيسك للتطبيقات، انقر مرتين علىThisOutlookSession من جزءProject1 (VbaProject.OTM) لفتح الوحدة النمطية، ثم انسخ والصق الكود أدناه في الوحدة النمطية الفارغة.

كود VBA: تمييز تلقائي لرسائل البريد الإلكتروني غير المقروءة الأقدم من عدد أيام معيّن كمقروءة:

Private Sub Application_Startup()
        Call MarkOldUnreadEmailsAsRead
    End Sub
    Private Sub MarkOldUnreadEmailsAsRead()
    Dim xInboxFld As Outlook.Folder
    Dim xAccount As Account
    On Error GoTo L1
    For Each xAccount In Outlook.Application.Session.Accounts
        Set xInboxFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
        Call Processfolders(xInboxFld)
    Next xAccount
L1:     Exit Sub
    End Sub
    Private Sub Processfolders(ByVal InboxFld As Outlook.Folder)
    Dim xItems As Outlook.Items
    Dim i As Long
    Dim xSubFld As Outlook.Folder
    On Error Resume Next
    Set xItems = InboxFld.Items
    For i = 1 To xItems.Count
        If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then
           If xItems(i).UnRead = True Then
              xItems(i).UnRead = False
              xItems(i).Save
           End If
        End If
    Next
    If InboxFld.Folders.Count > 0 Then
       For Each xSubFld In InboxFld.Folders
           Call Processfolders(xSubFld)
       Next
    End If
End Sub

ملاحظة: في الكود أعلاه، يمكنك تعديل عدد الأيام داخل هذا السكربت حسب احتياجاتك:If DateDiff(«d», xItems(i).ReceivedTime, Now) >= 15Then.

3. بعد ذلك، احفظ وأغلق نافذة الكود هذه. ومنذ ذلك الحين، وعند كل تشغيل لـ Outlook، سيتم وضع علامة «مقروءة» تلقائيًّا على جميع رسائل البريد الإلكتروني غير المقروءة الأقدم من عدد الأيام المُعرَّف مسبقًا دفعة واحدة.

ملاحظة: هذا الكود متاح لحساب البيانات الافتراضي فقط.