Пребройте имейлите по категория в Outlook с функцията за незабавно търсене

Преброяване на имейли по категория в Outlook с VBA

Този метод ще ви насочи да намерите всички имейли, маркирани с посочените цветови категории от Незабавно търсене функция и след това лесно да получите общия брой на всички резултати от търсенето в Лента на състоянието.

1. В Mail преглед, натиснете Ctrl + E клавиши едновременно, за да активирате Инструменти за търсене.

2. кликване Търсене > Категоризирании след това изберете определената цветова категория, по която ще броите имейлите.

3. Сега всички имейли, маркирани с определената цветова категория, са намерени и изброени в списъка с имейли. И можете лесно да получите общия брой на всички резултати от търсенето в лентата на състоянието. Вижте екранна снимка:

Забележки:

(1) За преброяване на имейли, маркирани с Жълта категория намлява Оранжева категория едновременно, моля, въведете критериите за търсене category:="Жълта категория" И "Оранжева категория" в Незабавно търсене кутия директно:

(2) За преброяване на имейли, маркирани с Жълта категория or Оранжева категория едновременно, моля, въведете критериите за търсене category:="Жълта категория" ИЛИ "Оранжева категория" в Незабавно търсене кутия директно.

Този метод ще въведе VBA за преброяване на имейли по категория в персонализиран период от време в Outlook. Моля, направете следното:

1. В Mail преглед, изберете имейл папката, в която ще броите имейлите.

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