3 phương pháp nhanh để đếm tất cả các mục được gắn cờ trong Outlook của bạn

giải pháp triển vọng Tháng Chín 29, 2025

Outlook cho phép bạn gắn cờ các mục để theo dõi, chẳng hạn như gắn cờ email, danh bạ, v.v. Trong trường hợp này, đôi khi bạn có thể muốn đếm các mục được gắn cờ. Ở đây chúng tôi sẽ chia sẻ 3 cách tiếp cận với bạn.

Có lẽ bạn đã đánh dấu một số lượng lớn các mục để theo dõi trong Outlook của mình. Chẳng hạn, bạn có thể gắn cờ một liên hệ mà bạn định gọi cho liên hệ này sau. Đối mặt với rất nhiều mục được gắn cờ, bạn có thể hy vọng đếm được chúng. Sau đây, chúng tôi sẽ giới thiệu cho bạn 3 phương tiện.

Cách 1: Đếm qua Search Folder

Nếu bạn chỉ muốn đếm các email được gắn cờ, bạn có thể sử dụng thư mục tìm kiếm. Dưới đây là các bước chi tiết.

Trước tiên, trong ngăn điều hướng thư, nhấp chuột phải vào "Tìm kiếm thư mục".
Sau đó, từ menu ngữ cảnh của nó, hãy chọn “Thư mục tìm kiếm mới”.
Trong hộp thoại bật lên, chọn “Thư được gắn cờ để theo dõi” và nhấp vào “OK”.
Cuối cùng, bạn sẽ nhận được tổng số email được gắn cờ trong thư mục tìm kiếm, giống như ảnh chụp màn hình sau.

Phương pháp 2: Đếm trong To-Do List

Nếu bạn đã gắn cờ không chỉ email mà cả các liên hệ, nhóm liên hệ, v.v., bạn có thể muốn biết tổng số tất cả các mục được gắn cờ này. Trong tình huống này, bạn có thể sử dụng cách sau.

Đầu tiên, chuyển sang ngăn điều hướng Nhiệm vụ bằng cách “Ctrl + 4”.
Sau đó, truy cập “Danh sách việc cần làm”, tại đây bạn sẽ thấy tất cả các mục được gắn cờ, hiển thị như hình bên dưới:
Tiếp theo, chọn tất cả các mục này và nhấn nút phím “Enter”, cố gắng mở chúng theo đợt.
Sau đó, bạn sẽ nhận được cảnh báo về việc mở quá nhiều mục, giống như hình dưới đây. Trong cảnh báo, có tổng số mục được gắn cờ.

Phương pháp 3: Đếm với Outlook VBA

Có thể bạn không chỉ muốn lấy tổng số lượng của tất cả các mặt hàng được gắn cờ mà còn muốn nhận được số lượng của các loại mặt hàng được gắn cờ riêng biệt. Đây là một giải pháp về mặt này.

Trước tiên, hãy truy cập trình chỉnh sửa VBA của Outlook theo hướng dẫn trong bài viết “Cách chạy mã VBA trong Outlook của bạn".
Sau đó sao chép mã VBA bên dưới vào một mô-đun hoặc dự án.

Dim lSeparateCount, lMailCount, lContactCount, lTaskCount As Long

Sub CountFlaggedItems()
    Dim objStore As Outlook.Store
    Dim lTotalCount As Long
    Dim strMsg As String

    lTotalCount = 0
    lMailCount = 0
    lContactCount = 0
    lTaskCount = 0
 
    For Each objStore In Application.Session.Stores
        For Each objFolder In objStore.GetRootFolder.Folders
            Call ProcessFolders(objFolder, lTotalCount)
        Next
    Next
 
    strMsg = lTotalCount & " items have been flagged, as follows: " & vbCr & vbCr & "Emails: " & lMailCount & vbCr & "Contacts: " & lContactCount & vbCr & "Tasks: " & lTaskCount
    MsgBox strMsg, vbInformation + vbOKOnly
End Sub

Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objSubfolder As Outlook.Folder
 
    Select Case objCurrentFolder.DefaultItemType
       Case olMailItem
            Call Count(objCurrentFolder, lCount)
            lMailCount = lMailCount + lSeparateCount
       Case olContactItem
            Call Count(objCurrentFolder, lCount)
            lContactCount = lContactCount + lSeparateCount
       Case olTaskItem
            Call Count(objCurrentFolder, lCount)
            lTaskCount = lTaskCount + lSeparateCount
            lCount = lCount + objCurrentFolder.Items.Count
    End Select
 
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder, lCount)
       Next
    End If
End Sub

Sub Count(objCurfolder As Outlook.Folder, lCurCount As Long)
    Dim objItem As Object
 
    lSeparateCount = 0
    For Each objItem In objCurfolder.Items
        Select Case objItem.Class
           Case olMail, olPost, olContact, olDistList, olSharing
                If objItem.IsMarkedAsTask = True Then
                   lSeparateCount = lSeparateCount + 1
                   lCurCount = lCurCount + 1
                End If
           Case olTask
                lSeparateCount = lSeparateCount + 1
        End Select
    Next
End Sub

Cuối cùng, nhấp vào chương trình con “CountFlaggedItems” và nhấn nút “F5”.
Khi macro hoàn tất, bạn sẽ nhận được thông báo nhắc tổng số lượng của tất cả các mục được gắn cờ, giống như hình bên dưới.

Vứt bỏ các sự cố khó chịu về Outlook

Trong Outlook, các sự cố về Outlook thỉnh thoảng có thể xảy ra. Vì vậy, tốt hơn hết là bạn nên nắm bắt một mẹo hàng đầu và đáng tin cậy. sửa chữa Outlook tiện ích, như DataNumen Outlook Repair. Nó có thể quét tệp Outlook của bạn một cách thông minh và sửa lỗi tệp trong vòng vài phút.

Giới thiệu tác giả:

Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm sửa chữa mdf và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm