كيف يمكنك حساب العدد الإجمالي للرسائل الإلكترونية الواردة يوميًا في Outlook؟

في الواقع، من السهل جدًّا البحث عن جميع الرسائل الإلكترونية الواردة اليوم في مجلد «الوارد»، أو في جميع مجلدات حساب بريد إلكتروني واحد، أو حتى في جميع مجلدات كل الحسابات في Outlook، ثم الحصول على العدد الإجمالي لنتائج البحث. يُرجى اتباع الخطوات التالية:

في طريقة عرض «البريد»، (1) حدد مجلد «الوارد» لحساب البريد الإلكتروني الذي تريد معرفة عدد الرسائل الواردة إليه اليوم؛ (2) اكتب معايير البحث «received:Today» في مربع «البحث الفوري»، ثم (3) حدّد نطاق البحث من مجموعة «النطاق» على تبويب «بحث». انظر لقطة الشاشة:

والآن يظهر العدد الإجمالي لجميع نتائج البحث—أي إجمالي الرسائل الواردة لهذا الحساب اليوم—في الزاوية السفلية اليسرى من Outlook، كما في لقطة الشاشة أدناه.

نقرة واحدة لحساب عدد الرسائل المحددة في Outlook

من السهل الحصول على العدد الإجمالي لجميع العناصر أو عدد الرسائل غير المقروءة في مجلد Outlook. ولكن كيف يمكنك بسرعة معرفة عدد العناصر المحددة في مجلد ما؟ هنا يُوصى باستخدامKutools لـ Outlook – خاصية «عدد العناصر المحددة»، التي تُظهر لك عدد العناصر المحددة بنقرة واحدة فقط!

سترشدك هذه الطريقة إلى إنشاء مجلد بحث يجمع تلقائيًا جميع رسائل البريد الإلكتروني الواردة اليوم، ثم يمكنك الحصول على العدد الإجمالي لهذه الرسائل بتعديل خصائص مجلد البحث. يُرجى اتباع الخطوات التالية:

1. حدد حساب البريد الإلكتروني الذي ترغب في إنشاء مجلد بحث ضمنه من شريط التنقل، ثم انقر فوق «مجلد» > «مجلد بحث جديد». راجع لقطة الشاشة:

2. في مربع حialog «مجلد بحث جديد»، اختر «إنشاء مجلد بحث مخصص»، ثم انقر على زر «اختيار». راجع لقطة الشاشة:

3. الآن يظهر مربع حوار «مجلد بحث مخصص». يُرجى إدخال اسم لمجلد البحث الجديد في حقل «الاسم».

4. انتقل الآن للنقر على زر «المعايير» في مربع حوار «مجلد بحث مخصص». ثم في مربع حialog «معايير مجلد البحث»، (1) انقر فوق تبويب «رسالة»، (2) اختر «مستلمة» من القائمة المنسدلة «الوقت»، (3) حدد «اليوم» من القائمة المنسدلة التالية، ثم (4) انقر فوق زر «موافق». انظر لقطة الشاشة:

5. الآن، ستعود إلى مربع حوار «مجلد بحث مخصص». يُرجى النقر على زر «استعراض»، ثم في مربع حوار «تحديد المجلد(ات)»، (1) حدد خانة «الوارد» فقط من قائمة «المجلدات»، وفعّل خيار «البحث في المجلدات الفرعية»، ثم انقر على زر «موافق». انظر لقطة الشاشة:

6. بعد ذلك، انقر على أزرار «موافق» بالتتابع لإغلاق مربعي الحوار «مجلد بحث مخصص» و«مجلد بحث جديد».

7. انقر بزر الماوس الأيمن على مجلد البحث الجديد الذي أنشأته للتو، ثم اختر «خصائص» من القائمة المنبثقة. راجع لقطة الشاشة التالية:

8. في مربع الحوار التالي، فعّل خيار «إظهار العدد الإجمالي للعناصر»، ثم انقر على زر «موافق». راجع لقطة الشاشة:

ابتداءً من الآن، سيتم حفظ نسخ من الرسائل الإلكترونية الواردة في هذا مجلد البحث يوميًا. وعند بدء يوم جديد، سيقوم مجلد البحث تلقائيًا بإزالة جميع الرسائل القديمة والبدء في عدّ رسائل اليوم الجديد.

ملاحظة: تُحسب هذه الطريقة العدد الإجمالي لرسائل البريد الإلكتروني المستلمة اليوم في مجلد «الوارد» لحساب بريد إلكتروني واحد فقط.

بالإضافة إلى الطريقة السابقة، يمكنك استخدام كود VBA لحساب إجمالي عدد الرسائل في تاريخ معيّن في Outlook. يُرجى اتباع الخطوات التالية:

1. حدد المجلد الذي ترغب في حساب العدد الإجمالي للرسائل الواردة إليه يوميًا، ثم افتح «مايكروسوفت فيجوال بيسك للتطبيقات» بالضغط على «Alt» + "F11".

2. بعد ذلك، انقر على «إدراج» > «وحدة برمجية» لإضافة وحدة جديدة، ثم الصق كود VBA أدناه فيها.

VBA: احسب عدد رسائل إجمالي الرسائل يوميًا

Sub Countemailsperday()
    Dim objOutlook As Object, objnSpace As Object, objFolder As MAPIFolder
    Dim EmailCount As Integer
    Dim oDate As String
    
    oDate = InputBox("Type the date for count (format YYYY-m-d")
    Set objOutlook = CreateObject("Outlook.Application")
    Set objnSpace = objOutlook.GetNamespace("MAPI")
        On Error Resume Next
        Set objFolder = Application.ActiveExplorer.CurrentFolder
        If Err.Number <> 0 Then
        Err.Clear
        MsgBox "No such folder."
        Exit Sub
        End If
    EmailCount = objFolder.Items.Count
    MsgBox "Number of emails in the folder: " & EmailCount, , "email count"
    Dim ssitem As MailItem
    Dim dateStr As String
    Dim myItems As Outlook.Items
    Dim dict As Object
    Dim msg As String
    Set dict = CreateObject("Scripting.Dictionary")
    Set myItems = objFolder.Items
    myItems.SetColumns ("ReceivedTime")
    ' Determine date of each message:
    For Each myItem In myItems
        dateStr = GetDate(myItem.ReceivedTime)
        If dateStr = oDate Then
            If Not dict.Exists(dateStr) Then
                dict(dateStr) = 0
            End If
            dict(dateStr) = CLng(dict(dateStr)) + 1
        End If
    Next myItem
    ' Output counts per day:
    msg = ""
    For Each o In dict.Keys
        msg = msg & o & ": " & dict(o) & " items" & vbCrLf
    Next
    MsgBox msg
    Set objFolder = Nothing
    Set objnSpace = Nothing
    Set objOutlook = Nothing
End Sub
Function GetDate(dt As Date) As String
    GetDate = Year(dt) & "-" & Month(dt) & "-" & Day(dt)
End Function

3. بعد لصق كود VBA، انقر على زر «تشغيل» فورًا لتفعيله!

4. بعد ذلك، أدخل التاريخ المحدد الذي تريد حساب العدد الإجمالي للرسائل الواردة فيه في مربع الحوار المنبثق، ثم انقر فوق «موافق». راجع لقطة الشاشة:

5. سيظهر مربع حوار يعرض العدد الإجمالي لرسائل البريد الإلكتروني في المجلد المحدد؛ يُرجى النقر على زر «موافق». بعد ذلك، في مربع الحوار المنبثق الثاني، ستحصل على العدد الإجمالي لرسائل البريد الإلكتروني المستلمة اليوم. انظر لقطات الشاشة:

ملاحظات:
(1) يمكن لهذا الكود VBA حساب العدد الإجمالي لجميع رسائل البريد الإلكتروني المستلمة في تاريخ محدد داخل المجلد المحدَّد فقط.
(2) يعمل كود VBA هذا بكفاءة في Outlook 2010 و2013 و2016.

إذا كان لديك Kutools لـ Outlook مثبّتًا، يمكنك بسهولة استخدام ميزته الإحصائية لحساب العدد الإجمالي للرسائل الإلكترونية المستلمة يوميًا خلال شهرٍ ما. اتبع الخطوات التالية:

1. يُرجى النقر على «KUTOOLS PLUS» > «إحصائيات». راجع لقطة الشاشة التالية:

2. الآن يظهر مربع حوار «الإحصائيات». يُرجى تحديد المجلدات التي تريد حساب الرسائل فيها، وتحديد نطاق التاريخ المرغوب، ثم النقر على زر «موافق». انظر لقطة الشاشة:

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