Đếm email theo danh mục trong Outlook với tính năng Tìm kiếm tức thì

Đếm email theo danh mục trong Outlook với VBA

Phương pháp này sẽ hướng dẫn bạn tìm ra tất cả các email được đánh dấu bằng các danh mục màu được chỉ định bởi Instant Search và sau đó dễ dàng nhận được tổng số tất cả các kết quả tìm kiếm tại Thanh trạng thái.

1. bên trong email xem, bấm Ctrl + E các phím đồng thời để kích hoạt Công cụ tìm kiếm.

2. nhấp chuột Tìm kiếm > Phân loại, và sau đó chọn danh mục màu được chỉ định mà bạn sẽ đếm email.

3. Bây giờ tất cả các email được đánh dấu bằng loại màu đã chỉ định đều được tìm thấy và liệt kê trong danh sách thư. Và bạn có thể dễ dàng nhận được tổng số của tất cả các kết quả tìm kiếm trên thanh trạng thái. Xem ảnh chụp màn hình:

Ghi chú:

(1) Để đếm các email được đánh dấu bằng Loại màu vàng và Loại cam đồng thời, vui lòng nhập tiêu chí tìm kiếm thể loại: = "Danh mục màu vàng" VÀ "Danh mục màu cam" vào Instant Search hộp trực tiếp:

(2) Để đếm các email được đánh dấu bằng Loại màu vàng or Loại cam đồng thời, vui lòng nhập tiêu chí tìm kiếm thể loại: = "Danh mục màu vàng" HOẶC "Danh mục màu cam" vào Instant Search hộp trực tiếp.

Phương pháp này sẽ giới thiệu một VBA để đếm email theo danh mục trong phạm vi ngày tùy chỉnh trong Outlook. Vui lòng làm như sau:

1. bên trong email xem, chọn thư mục email mà bạn sẽ đếm email.

2. nhấn Khác + F11 đồng thời để mở cửa sổ Microsoft Visual Basic for Applications.

3. nhấp chuột Chèn > Mô-đun, và sau đó dán mã VBA bên dưới vào cửa sổ Mô-đun mở mới:

VBA: Đếm email theo danh mục trong 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. Nhấn nút F5 hoặc nhấp vào nút Run để chạy VBA này.

5. (1) Trong hộp thoại Microsoft Outlook hiện ra đầu tiên, vui lòng nhập ngày bắt đầu của phạm vi ngày tùy chỉnh mà bạn sẽ đếm email trong đó và nhấp vào OK . (2) Trong hộp thoại Microsoft Outlook thứ hai, vui lòng nhập ngày kết thúc và nhấp vào OK cái nút. Xem ảnh chụp màn hình:

Và bây giờ một hộp thoại xuất hiện và hiển thị số lượng email được đánh dấu bằng danh mục màu. Xem ảnh chụp màn hình:

Đếm tổng số kết quả tìm kiếm trong Outlook

Đếm giờ / ngày / tuần dành cho một cuộc hẹn hoặc cuộc họp trong Outlook

Đếm số lượng email theo chủ đề trong Outlook

Đếm tổng số email đến mỗi ngày trong Outlook

Đếm tổng số email đã chọn trong Outlook