نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيف يتم وضع علامة على رسائل البريد الإلكتروني غير المقروءة أكثر من الأيام المحددة للقراءة تلقائيًا في 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

ملاحظة:: في التعليمة البرمجية المذكورة أعلاه ، يمكنك تغيير عدد الأيام داخل هذا البرنامج النصي: إذا كانت DateDiff ("d" ، xItems (i) .ReceivedTime، Now)> = 15 ثم لجهودكم الخاصة.

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

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


Kutools for Outlook - يجلب ميزات 100 المتقدمة إلى Outlook ، وجعل العمل أسهل بكثير!

  • السيارات سيسي / بسك عن طريق القواعد عند إرسال البريد الإلكتروني ؛ إعادة توجيه تلقائي رسائل البريد الإلكتروني متعددة حسب الطلب ؛ رد آلي بدون خادم تبادل ، والمزيد من الميزات التلقائية ...
  • تحذير BCC - إظهار الرسالة عند محاولة الرد على الكل إذا كان عنوان البريد الخاص بك في قائمة BCC; تذكير عند فقد المرفقات، وتذكير المزيد من الميزات ...
  • الرد (الكل) مع جميع المرفقات في محادثة البريد; الرد على العديد من رسائل البريد الإلكتروني في ثوان؛ إضافة تحية السيارات عند الرد إضافة التاريخ إلى الموضوع ...
  • أدوات المرفقات: إدارة جميع المرفقات في جميع الرسائل ، أوتو ديتاش, ضغط الكل، إعادة تسمية الكل ، حفظ الكل ... تقرير سريع ، عدد الرسائل المختارة...
  • رسائل البريد الإلكتروني العشوائي قوية حسب الطلب إزالة الرسائل المكررة وجهات الاتصال... يمكنك من القيام بذكاء وأسرع وأفضل في Outlook.
kutools لقطة توقعات kutools علامة التبويب 1180x121
kutools لقطة توقعات kutools بالإضافة إلى علامة التبويب 1180x121
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.