كيف يمكنك عدّ عدد الرسائل المعلَّمة في Outlook؟

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

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

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

---

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

لعدّ عدد رسائل البريد الإلكتروني المعلَّمة في حساب Outlook، يمكن أن تساعدك ميزةمجلدات البحث، يُرجى اتباع الخطوات التالية:

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

2. بعد ذلك، ستظهر نافذةمجلد بحث جديد. انقر على خيارالبريد المعلَّم للمتابعةضمن قسمقراءة البريد، كما في لقطة الشاشة:

3. بعد ذلك، انقر على زرموافق، وسيتم نسخ جميع الرسائل المعلَّمة إلى مجلدللمتابعة، ويظهر العدد الإجمالي للرسائل المعلَّمة كما في لقطة الشاشة التالية:

---

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

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

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

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

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

---

عدّ عدد الرسائل ليوم اليوم أو بالأمس، أو المقروءة أو غير المقروءة، أو إجمالي عدد العناصر... في Outlook Kutools لـ Outlook: مع أكثر من 70+ إضافة مجانية ومفيدة لـ Outlook،حمّل النسخة المجانية الآن. بفضل ميزةKutools لـ Outlookالقوية المتمثلة فيالإحصائيات، يمكنك بسهولة الحصول على عدد العناصر حسب التاريخ، وعدد العناصر المحددة، والمقروءة، وغير المقروءة، وغيرها — تمامًا كما تحتاج!