Skip to main content

Kutools for Office — مجموعة واحدة. خمسة أدوات. أنجز المزيد.

كيفية حساب عدد الرسائل المعلمة في Outlook؟

Author Xiaoyang Last modified

في Outlook، يمكنك وضع علامة على الرسائل أو جهات الاتصال أو المهام لجعلها مميزة، ولكن في بعض الأحيان تحتاج إلى حساب عدد العناصر المعلمة في Outlook الخاص بك. كيف يمكنك التعامل مع هذه المهمة في Outlook؟

حساب عدد الرسائل المعلمة في حساب واحد باستخدام مجلدات البحث

حساب عدد الرسائل / جهات الاتصال / المهام المعلمة بشكل منفصل في جميع الحسابات باستخدام كود VBA


a name="a1"> حساب عدد الرسائل المعلمة في حساب واحد باستخدام مجلدات البحث

لحساب عدد الرسائل الإلكترونية المعلمة في حساب بـ Outlook، يمكن أن تساعدك ميزة مجلدات البحث، يرجى القيام بما يلي:

1. انقر بزر الماوس الأيمن على مجلدات البحث أسفل حساب البريد الإلكتروني الخاص بك، ثم حدد إنشاء مجلد بحث جديد، انظر لقطة الشاشة:

doc count flagged items 1

2. ثم سيظهر مربع حوار إنشاء مجلد بحث جديد، انقر فوق خيار البريد المعلم للمتابعة في قسم قراءة البريد، انظر لقطة الشاشة:

doc count flagged items 2

3. ثم انقر فوق موافق، وستتم نسخ جميع الرسائل المعلمة إلى مجلد للمتابعة، ويتم عرض العدد الإجمالي للرسائل الإلكترونية المعلمة كما هو موضح في لقطة الشاشة التالية:

doc count flagged items 3

a name="a2"> حساب عدد الرسائل / جهات الاتصال / المهام المعلمة بشكل منفصل في جميع الحسابات باستخدام كود VBA

إذا كنت تريد حساب عدد جميع العناصر المعلمة، مثل الرسائل الإلكترونية وجهات الاتصال والمهام في Outlook بشكل منفصل، يمكن أن يساعدك الكود التالي VBA.

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

2. بعد ذلك، انقر فوق إدراج > وحدة، انسخ والصق الكود أدناه في الوحدة الفارغة المفتوحة، انظر لقطة الشاشة:

كود VBA: حساب عدد المرات المعلمة في Outlook:

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub
doc count flagged items 4

3. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، وسيظهر مربع تنبيه لإخبارك بالعدد الإجمالي لجميع العناصر المعلمة كما هو موضح في لقطة الشاشة أدناه:

doc count flagged items 5

حساب عدد اليوم، أمس، مقروء، غير مقروء، إجمالي العناصر...في Outlook

مع ميزة الإحصائيات القوية في Kutools for Outlook، يمكنك الحصول على عدد العناصر بناءً على التاريخ، العناصر المحددة، مقروء، غير مقروء وما إلى ذلك حسب الحاجة.

doc count flagged items 6
Kutools for Outlook: مع أكثر من 70+ إضافة مفيدة ومجانية لـ Outlook، قم بتنزيل النسخة المجانية الآن.

أفضل أدوات تعزيز الإنتاجية في المكتب

خبر عاجل: Kutools لـ Outlook يطلق إصدارًا مجانيًا!

جرب الإصدار الجديد كليًا من Kutools لـ Outlook مع أكثر من100 ميزة مذهلة! انقر لتنزيل الآن!

🤖 Kutools AI : يستخدم تكنولوجيا الذكاء الاصطناعي المتقدمة للتعامل مع البريد الإلكتروني بسهولة، بما في ذلك الرد، التلخيص، التحسين، التوسيع، الترجمة، وإنشاء رسائل البريد الإلكتروني.

📧 أتمتة البريد الإلكتروني: الرد التلقائي (متوفر لـ POP وIMAP) / جدولة إرسال البريد الإلكتروني / نسخة تلقائية/مخفية بناءً على القاعدة عند إرسال البريد / التحويل التلقائي (قاعدة متقدمة) / إضافة التحية تلقائيًا / تقسيم تلقائي لرسائل البريد الإلكتروني متعددة المستلمين إلى رسائل فردية ...

📨 إدارة البريد الإلكتروني: استدعاء البريد الإلكتروني / حظر رسائل التصيد بناءً على الموضوعات أو أخرى / حذف البريد الإلكتروني المكرر / البحث المتقدم / تنظيم المجلدات ...

📁 إعدادات المرفقات الاحترافية: حفظ دفعة / فصل دفعة / ضغط دفعة / حفظ تلقائي / تفصيل تلقائي / ضغط تلقائي ...

🌟 جمالية الواجهة: 😊 المزيد من الرموز التعبيرية الجميلة والرائعة / تذكيرك عند وصول رسائل البريد الهامة / تصغير Outlook بدلًا من الإغلاق ...

👍 ميزات بنقرة واحدة: الرد على الجميع مع المرفقات / البريد الإلكتروني المضاد للتصيد / 🕘 عرض المنطقة الزمنية للمرسل ...

👩🏼‍🤝‍👩🏻 جهات الاتصال والتقويم: إضافة دفعة لجهات الاتصال من البريد الإلكتروني المحدد / تقسيم مجموعة جهات الاتصال إلى مجموعات فردية / إزالة تذكير عيد الميلاد ...

استخدم Kutools بلغتك المفضلة – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية وأكثر من40 لغة أخرى!

افتح Kutools لـ Outlook فورًا بنقرة واحدة. لا تنتظر، قم بالتنزيل الآن وارتقِ بإنتاجيتك!

kutools for outlook features1 kutools for outlook features2

🚀 تنزيل بنقرة واحدة — احصل على جميع إضافات Office

موصى به بقوة: Kutools لـ Office (خمسة في واحد)

بنقرة واحدة يمكنك تنزيل خمسة برامج تثبيت مرة واحدة — Kutools لـ Excel وOutlook وWord وPowerPoint وOffice Tab Pro. انقر لتنزيل الآن!

  • سهولة بنقرة واحدة: قم بتنزيل جميع حزم التثبيت الخمسة دفعة واحدة.
  • 🚀 جاهز لأي مهمة في Office: ثبّت الإضافات التي تحتاجها وقتما تشاء.
  • 🧰 يتضمن: Kutools لـ Excel / Kutools لـ Outlook / Kutools لـ Word / Office Tab Pro / Kutools لـ PowerPoint