כיצד לספור את המספר הכולל של אימיילים נכנסים ביום אחד ב-Outlook?

למעשה, זה די קל לחפש את כל האימיילים שנכנסו היום לתיקיית "דואר נכנס", כל התיקיות של חשבון אימייל אחד, או כל התיקיות של כל חשבונות האימייל ב-Outlook, ואז לספור את המספר הכולל של תוצאות החיפוש. אנא עשו כך:

בתצוגת "דואר", (1) בחרו את תיקיית "דואר נכנס" של חשבון אימייל אחד שבו תרצו לספור את האימיילים שנכנסו היום; (2) הקלידו את קריטריון החיפוש "received:Today" לתוך תיבת "חיפוש רגעי", ולאחר מכן (3) ציינו טווח חיפוש בקבוצה "Scope" בכרטיסייה "Search". ראו צילום מסך:

ועכשיו המספר הכולל של כל תוצאות החיפוש, במילים אחרות המספר הכולל של אימיילים שנכנסו היום מוצג בפינה השמאלית התחתונה של Outlook כפי שמוצג בתמונה למטה.

לחיצה אחת כדי לספור את מספר האימיילים הנבחרים ב-Outlook

קל לקבל את המספר הכולל של כל הפריטים או את מספר הפריטים שלא נקראו בתיקיה ב-Outlook. אבל כיצד תוכלו במהירות לקבל את מספר הפריטים שנבחרו בתיקיה ב-Outlook? כאן, Kutools עבור Outlook ספירת פריטים נבחרים מומלץ, שיכול במהירות להראות את מספר הפריטים שנבחרו רק עם לחיצה אחת!

שיטת זו תדריך אתכם ליצור תיקיית חיפוש שמאגדת אוטומטית את כל האימיילים שהתקבלו היום, ולאחר מכן תוכלו לקבל את המספר הכולל של אימיילים אלה על ידי שינוי מאפייני תיקיית החיפוש. אנא עשו כך:

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 עבור Outlook מותקן, תוכלו ליישם את תכונת הסטטיסטיקה שלו כדי בקלות לספור את המספר הכולל של אימיילים שהתקבלו בכל יום בחודש. אנא עשו כך:

1. אנא לחצו על "Kutools Plus" > "סטטיסטיקה". ראו צילום מסך:

2. כעת קופצת חלונית הסטטיסטיקה, אנא בחרו את התיקיות שתרצו לספור בהן את האימיילים, ציינו את טווח התאריכים שתרצו לספור את האימיילים בו, ולחצו על כפתור "אישור". ראו צילום מסך:

3. בחלון הסטטיסטיקה השני, עברו ללשונית "ימי החודש" או "ימי השבוע", תוכלו לראות את המספר הכולל של אימיילים שהתקבלו בכל תאריך. ראו צילום מסך:
דרך אגב, תוכלו גם לקבל את המספר הכולל של אימיילים שהתקבלו היום/אתמול בכל תיבות הדואר הנכנס של כל חשבונות האימייל בלשונית "סיכום".