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

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

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

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

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

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

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

Примечания:

(1) Чтобы подсчитать письма, помеченные категориями «Жёлтая»и«Оранжевая», одновременно введите в поле поиска критерий: category:=«Yellow Category» AND "Orange Category".Instant Search:

(2) Чтобы подсчитать письма, помеченные категориями «Жёлтая»или«Оранжевая», одновременно введите в поле поиска следующий критерий: category:=«Yellow Category» OR "Orange Category".Instant Search.

Этот метод предлагает использовать макрос VBA для подсчёта писем по категориям в заданном диапазоне дат в Outlook. Выполните следующие действия:

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

2. Нажмите одновременно клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.

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 укажите начальную дату в поле «Диапазон дат», чтобы подсчитать письма за нужный период, и нажмите кнопку OK. (2) Во втором диалоговом окне Microsoft Outlook укажите конечную дату и нажмите кнопку OK. См. снимки экрана:

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

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

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

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

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

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