Підраховуйте електронні листи за категоріями в Outlook за допомогою функції миттєвого пошуку

Підраховуйте електронні листи за категоріями в Outlook за допомогою VBA

Цей метод допоможе вам дізнатися всі електронні листи, позначені вказаними кольоровими категоріями Миттєвий пошук , а потім легко отримати загальну кількість усіх результатів пошуку в Рядок стану.

1 В пошта переглянути, натисніть Ctrl + E одночасно для активації клавіші Інструменти пошуку.

2. клацання Пошук > Категорії, а потім виберіть вказану категорію кольорів, за якою ви будете підраховувати електронні листи.

3. Тепер усі електронні листи, позначені вказаною категорією кольорів, з’ясовуються та перераховуються у списку розсилки. І ви можете легко отримати загальну кількість усіх результатів пошуку в рядку стану. Дивіться знімок екрана:

Примітки:

(1) Для підрахунку електронних листів, позначених Жовта категорія та Помаранчева категорія одночасно, будь ласка, введіть критерії пошуку category: = "Жовта категорія" І "Помаранчева категорія" в Миттєвий пошук прямо в коробці:

(2) Для підрахунку електронних листів, позначених Жовта категорія or Помаранчева категорія одночасно, будь ласка, введіть критерії пошуку category: = "Жовта категорія" АБО "Помаранчева категорія" в Миттєвий пошук прямо в коробці.

Цей метод запровадить VBA для підрахунку електронних листів за категоріями в спеціальному діапазоні дат в Outlook. Будь ласка, виконайте наступне:

1 В пошта перегляньте, виберіть папку електронної пошти, до якої ви будете рахувати електронні листи.

2. прес інший + F11 одночасно відкрити вікно Microsoft Visual Basic for Applications.

3. клацання Insert > Модулі, а потім вставте нижче коду 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