Как подсчитать электронные письма по категориям в Outlook?

Подсчет электронных писем по категориям в Outlook с помощью функции Мгновенный Поиск

Подсчет электронных писем по категориям в Outlook с помощью VBA

Этот метод поможет вам найти все электронные письма, отмеченные указанными цветовыми категориями, с помощью функции Мгновенный Поиск, а затем легко получить общее количество всех результатов поиска на Панели состояния.

1. В представлении Почта одновременно нажмите клавиши Ctrl + E , чтобы активировать Инструменты поиска.

2. Нажмите Поиск > Категоризированные и выберите указанную цветовую категорию, по которой хотите подсчитать электронные письма.

3. Теперь все электронные письма, отмеченные указанной цветовой категорией, найдены и перечислены в списке писем. Вы также можете легко увидеть общее количество всех результатов поиска на строке состояния. См. скриншот:

Примечания:

(1) Для подсчета электронных писем, отмеченных желтой и оранжевой категориями одновременно, введите критерии поиска category:="Желтая категория" И "Оранжевая категория" прямо в поле Мгновенный Поиск:

(2) Для подсчета электронных писем, отмеченных желтой или оранжевой категориями одновременно, введите критерии поиска category:="Желтая категория" ИЛИ "Оранжевая категория" прямо в поле Мгновенный Поиск.

Этот метод представляет собой VBA для подсчета электронных писем по категориям в пользовательском диапазоне дат в Outlook. Пожалуйста, выполните следующие действия:

1. В представлении Почта выберите папку электронной почты, по которой вы будете подсчитывать электронные письма.

2. Одновременно нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений.

3. Нажмите Вставить > Модуль, а затем вставьте приведенный ниже код VBA в новое окно Модуля:

VBA: Подсчет электронных писем по категориям в Outlook

Sub CategoriesEmails()

Dim oFolder As MAPIFolder
Dim oDict As Object
Dim sStartDate As String
Dim sEndDate As String
Dim oItems As Outlook.Items
Dim sStr As String
Dim sMsg As String


On Error Resume Next
Set oFolder = Application.ActiveExplorer.CurrentFolder

Set oDict = CreateObject("Scripting.Dictionary")

sStartDate = InputBox("Type the start date (format MM/DD/YYYY)")
sEndDate = InputBox("Type the end date (format MM/DD/YYYY)")

Set oItems = oFolder.Items.Restrict("[Received] >= '" & sStartDate & "' And [Received] <= '" & sEndDate & "'")
oItems.SetColumns ("Categories")

For Each aitem In oItems
sStr = aitem.Categories
If Not oDict.Exists(sStr) Then
oDict(sStr) = 0
End If
oDict(sStr) = CLng(oDict(sStr)) + 1
Next aitem

sMsg = ""
For Each aKey In oDict.Keys
sMsg = sMsg & aKey & ":   " & oDict(aKey) & vbCrLf
Next
MsgBox sMsg

Set oFolder = Nothing

 End Sub

4. Нажмите клавишу F5 или кнопку Выполнить, чтобы запустить этот VBA.

5. (1) В первом появившемся диалоговом окне Microsoft Outlook введите начальную дату пользовательского диапазона дат, по которому вы будете подсчитывать электронные письма, и нажмите кнопку ОК. (2) Во втором диалоговом окне Microsoft Outlook введите конечную дату и нажмите кнопку ОК . См. скриншоты:

Теперь появится диалоговое окно, отображающее количество электронных писем, отмеченных цветовыми категориями. См. скриншот:

Подсчет общего количества результатов поиска в Outlook

Подсчет часов/дней/недель, потраченных на встречу или собрание в Outlook

Подсчет количества электронных писем по темам в Outlook

Подсчет общего количества входящих электронных писем за день в Outlook

Подсчет общего количества выбранных электронных писем в Outlook