Как подсчитать общее количество входящих писем за день в Outlook?

На самом деле, найти все письма, полученные сегодня, в папке «Входящие», во всех папках учётной записи электронной почты или во всех папках всех учётных записей в Outlook — и подсчитать общее количество результатов поиска — довольно просто. Сделайте следующее:

В представлении «Почта»: (1) выберите папку «Входящие» той учётной записи электронной почты, для которой нужно подсчитать входящие письма за сегодня; (2) введите в поле «Мгновенный поиск» критерий «получено:Сегодня»; (3) на вкладке «Поиск» в группе «Область поиска» укажите нужную область поиска. См. снимок экрана:

Теперь общее количество результатов поиска — то есть число всех входящих писем за сегодня — отображается в левом нижнем углу 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. Во втором диалоговом окне «Статистика» перейдите на вкладку «Статистика по дням месяца» или «Статистика по дням недели», где вы увидите общее количество полученных электронных писем за каждую дату. См. снимок экрана:
Кроме того, на вкладке «Сводка» вы также можете узнать общее количество полученных сегодня/вчера электронных писем во всех папках «Входящие» всех учётных записей.