Policz wiadomości e-mail według kategorii w programie Outlook dzięki funkcji wyszukiwania błyskawicznego

Policz wiadomości e-mail według kategorii w Outlooku za pomocą VBA

Ta metoda pomoże Ci znaleźć wszystkie wiadomości e-mail oznaczone określonymi kategoriami oznaczonymi kolorem Instant Search funkcji, a następnie łatwo uzyskać łączną liczbę wszystkich wyników wyszukiwania w Pasek stanu.

1. w Poczta wyświetlić, naciśnij Ctrl + E jednocześnie, aby aktywować Narzędzia wyszukiwania.

2. kliknij Szukaj > skategoryzowane, a następnie wybierz określoną kategorię kolorów, według której będziesz liczyć wiadomości e-mail.

3. Teraz wszystkie wiadomości e-mail oznaczone określoną kategorią kolorową zostaną znalezione i umieszczone na liście mailingowej. Łączną liczbę wszystkich wyników wyszukiwania można łatwo wyświetlić na pasku stanu. Zobacz zrzut ekranu:

Uwagi:

(1) Do liczenia wiadomości e-mail oznaczonych Kategoria żółta i Kategoria pomarańczowa jednocześnie wprowadź kryteria wyszukiwania category: = "Kategoria żółta" ORAZ "Kategoria pomarańczowa" do Instant Search box bezpośrednio:

(2) Do liczenia wiadomości e-mail oznaczonych Kategoria żółta or Kategoria pomarańczowa jednocześnie wprowadź kryteria wyszukiwania category: = "Kategoria żółta" LUB "Kategoria pomarańczowa" do Instant Search pudełko bezpośrednio.

Ta metoda wprowadzi VBA do liczenia wiadomości e-mail według kategorii w niestandardowym zakresie dat w programie Outlook. Wykonaj następujące czynności:

1. w Poczta widoku, wybierz folder e-mail, w którym będziesz liczyć e-maile.

2. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć okno Microsoft Visual Basic for Applications.

3. kliknij wstawka > Moduł, a następnie wklej poniższy kod VBA do nowego otwierającego okna modułu:

VBA: Policz wiadomości e-mail według kategorii w Outlooku

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. wciśnij F5 lub kliknij przycisk Uruchom, aby uruchomić ten VBA.

5. (1) W pierwszym wyskakującym oknie dialogowym Microsoft Outlook wpisz datę rozpoczęcia niestandardowego zakresu dat, w którym będziesz liczyć wiadomości e-mail, i kliknij OK przycisk. (2) W drugim oknie dialogowym Microsoft Outlook wpisz datę zakończenia i kliknij OK przycisk. Zobacz zrzuty ekranu:

A teraz pojawia się okno dialogowe i wyświetla liczbę e-maili oznaczonych kolorami. Zobacz zrzut ekranu:

Policz całkowitą liczbę wyników wyszukiwania w programie Outlook

Policz godziny / dni / tygodnie spędzone na spotkaniu lub spotkaniu w programie Outlook

Policz liczbę wiadomości e-mail według tematu w Outlooku

Policz całkowitą liczbę przychodzących wiadomości e-mail dziennie w programie Outlook

Policz całkowitą liczbę wybranych e-maili w Outlooku