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

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

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

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

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

من السهل الحصول على العدد الإجمالي لجميع العناصر أو عدد العناصر غير المقروءة في مجلد Outlook. ولكن كيف يمكنك بسرعة الحصول على عدد العناصر المحددة في مجلد داخل Outlook؟ هنا، يُوصى باستخدام أدوات Kutools لـ Outlook Count Selected Items وهو يمكن أن يعرض بسرعة عدد العناصر المحددة بنقرة واحدة فقط!

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

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

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

3. الآن ظهر مربع الحوار "مجلد بحث مخصص". يرجى تسمية مجلد البحث الجديد في مربع "الاسم".

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

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

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

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

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

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

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

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

1. حدد المجلد الذي تريد حساب إجمالي الرسائل الإلكترونية الواردة فيه يوميًا، ثم افتح "Microsoft Visual Basic for Applications" بالضغط على "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 for Outlook مثبتًا، يمكنك تطبيق ميزة الإحصائيات الخاصة به لحساب بسهولة العدد الإجمالي للرسائل الإلكترونية المستلمة يوميًا خلال شهر. يرجى اتباع الخطوات التالية:

1. يرجى النقر فوق "Kutools Plus" > "إحصائيات". انظر إلى لقطة الشاشة:

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

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