Подсчет писем по категориям в Outlook с функцией мгновенного поиска

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

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

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

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

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

Ноты:

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

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

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

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

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

И теперь появляется диалоговое окно с количеством писем, отмеченных цветовыми категориями. Смотрите скриншот:

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

Считайте часы / дни / недели, потраченные на встречу или встречу в Outlook

Подсчитайте количество писем по теме в Outlook

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

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