Bỏ qua nội dung chính

Làm cách nào để đếm số lượng thư được gắn cờ trong Outlook?

Trong Outlook, bạn có thể gắn cờ các thư, liên hệ hoặc nhiệm vụ để làm cho chúng nổi bật, nhưng đôi khi, bạn cần đếm số lượng các mục được gắn cờ trong Outlook của mình. Bạn có thể giải quyết công việc này như thế nào trong Outlook?

Đếm số lượng thư được gắn cờ trong một tài khoản bằng Thư mục tìm kiếm

Đếm số lượng tin nhắn / liên hệ / nhiệm vụ được gắn cờ riêng biệt trong tất cả các tài khoản có mã VBA


Đếm số lượng thư được gắn cờ trong một tài khoản bằng Thư mục tìm kiếm

Để đếm số lượng email được gắn cờ trong tài khoản Outlook, Thư mục Tìm kiếm tính năng có thể giúp bạn, vui lòng làm như sau:

1. Click chuột phải Thư mục Tìm kiếm trong tài khoản Email của bạn, rồi chọn Thư mục Tìm kiếm Mới, xem ảnh chụp màn hình:

số lượng tài liệu được gắn cờ 1

2. Sau đó a Thư mục Tìm kiếm Mới hộp thoại hiện ra, nhấp vào Thư được gắn cờ để theo dõi tùy chọn trong Đọc thư , xem ảnh chụp màn hình:

số lượng tài liệu được gắn cờ 2

3. Sau đó nhấn vào OKvà tất cả các thư được gắn cờ đều được sao chép vào Để theo dõi thư mục và tổng số email bị gắn cờ được hiển thị như ảnh chụp màn hình sau:

số lượng tài liệu được gắn cờ 3


Đếm số lượng tin nhắn / liên hệ / nhiệm vụ được gắn cờ riêng biệt trong tất cả các tài khoản có mã VBA

Nếu bạn muốn đếm số lượng tất cả các mục được gắn cờ, chẳng hạn như email, danh bạ và tác vụ trong Outlook riêng biệt, mã VBA sau có thể giúp bạn.

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Sau đó nhấn vào Chèn > Mô-đun, sao chép và dán mã bên dưới vào mô-đun trống đã mở, xem ảnh chụp màn hình:

Mã VBA: Đếm số lần được gắn cờ trong Outlook:

Dim GSeparateCount, GMailCount, GContactCount, GTaskCount As Long
Sub CountFlaggedItems()
Dim xStore As Outlook.Store
Dim xTotalCount As Long
Dim xPrompt As String
Dim xFolder As Folder
Dim i, k As Integer
On Error Resume Next
xTotalCount = 0
GMailCount = 0
GContactCount = 0
GTaskCount = 0
For Each xStore In Application.Session.Stores
    For Each xFolder In xStore.GetRootFolder.Folders
       Call ProcessFolders(xFolder)
    Next
Next
xTotalCount = GMailCount + GContactCount + GTaskCount
xPrompt = xTotalCount & " items have been flagged, as follows: " & Chr(10) & Chr(10) & "Emails: " & GMailCount & Chr(10) & "Contacts: " & GContactCount & Chr(10) & "Tasks: " & GTaskCount
MsgBox xPrompt, vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
Sub ProcessFolders(ByVal CurFolder As Outlook.Folder)
Dim xSubfolder As Outlook.Folder
Dim xItem As Object
Dim i, k As Integer
On Error Resume Next
For i = CurFolder.Items.Count To 1 Step -1
    Set xItem = CurFolder.Items.item(i)
    Select Case xItem.Class
        Case olMail, olPost, olSharing
            If xItem.IsMarkedAsTask = True Then
                GMailCount = GMailCount + 1
            End If
        Case olContact, olDistList
            If xItem.IsMarkedAsTask = True Then
                GContactCount = GContactCount + 1
            End If
        Case olTask
            If CurFolder.DefaultItemType = olTaskItem Then
            GTaskCount = GTaskCount + 1
            End If
    End Select
Next i
If CurFolder.Folders.Count > 0 Then
        For k = CurFolder.Folders.Count To 1 Step -1
            Set xSubfolder = CurFolder.Folders.item(k)
            Call ProcessFolders(xSubfolder)
        Next k
    End If
End Sub

số lượng tài liệu được gắn cờ 4

3. Sau đó nhấn F5 để chạy mã này và một hộp nhắc xuất hiện để cho bạn biết tổng số tất cả các mục được gắn cờ như hình minh họa bên dưới:

số lượng tài liệu được gắn cờ 5


Đếm số lượng mục hôm nay, ngày hôm qua, đã đọc, chưa đọc, tổng số mục ... trong Outlook

Với Kutools cho Outlookmạnh mẽ Thống kê học tính năng, bạn có thể nhận được số lượng itmes dựa trên ngày, các mục đã chọn, đã đọc, chưa đọc, v.v. khi bạn cần.

số lượng tài liệu được gắn cờ 6

Kutools cho Outlook: với hơn 100+ bổ trợ Excel tiện dụng, dùng thử miễn phí không giới hạn trong 60 ngày. Tải xuống và dùng thử bản dùng thử miễn phí ngay bây giờ!

Công cụ năng suất văn phòng tốt nhất

Kutools cho Outlook - Hơn 100 tính năng mạnh mẽ để tăng cường Outlook của bạn

🤖 Trợ lý thư AI: Email chuyên nghiệp tức thì với phép thuật AI--một cú nhấp chuột để có câu trả lời xuất sắc, giọng điệu hoàn hảo, khả năng thông thạo đa ngôn ngữ. Chuyển đổi email một cách dễ dàng! ...

📧 Tự động hoá email: Vắng Mặt (Có sẵn cho POP và IMAP)  /  Lên lịch gửi email  /  Tự động CC/BCC theo quy định khi gửi Email  /  Tự động chuyển tiếp (Quy tắc nâng cao)   /  Tự động thêm lời chào   /  Tự động chia email nhiều người nhận thành các tin nhắn riêng lẻ hữu ích. Cảm ơn !

📨 Quản lý email: Dễ dàng thu hồi email  /  Chặn email lừa đảo theo chủ đề và những người khác  /  Xóa các email trùng lặp  /  Tìm Kiếm Nâng Cao  /  Hợp nhất các thư mục hữu ích. Cảm ơn !

📁 Tệp đính kèm chuyên nghiệpLưu hàng loạt  /  Tách hàng loạt  /  Nén hàng loạt  /  Tự động lưu   /  Tự động tách  /  Tự động nén hữu ích. Cảm ơn !

🌟 Giao diện ma thuật: 😊Thêm nhiều biểu tượng cảm xúc đẹp và thú vị hơn   /  Tăng năng suất Outlook của bạn với chế độ xem theo thẻ  /  Thu nhỏ Outlook thay vì đóng hữu ích. Cảm ơn !

👍 Kỳ quan chỉ bằng một cú nhấp chuột: Trả lời tất cả bằng tệp đính kèm đến  /   Email chống lừa đảo  /  🕘Hiển thị múi giờ của người gửi hữu ích. Cảm ơn !

👩🏼‍🤝‍👩🏻 Danh bạ & Lịch: Thêm hàng loạt liên hệ từ các email đã chọn  /  Chia nhóm liên hệ thành các nhóm riêng lẻ  /  Xóa lời nhắc sinh nhật hữu ích. Cảm ơn !

Trên 100 tính năng Chờ đợi sự khám phá của bạn! Bấm vào đây để khám phá thêm.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Das ist ja jetzt wohl nicht die Wahrheit. Ich brauche VBA oder soll umständliche Ordneraktionen durchführen um die Zahl der aktuell gewählten Kontakte zu lesen? So lange es solche Zumutungen bei Office gibt wird Arbeiten mit dieser Suite keinen Spaß machen. Ich stoße immer wieder auf Funktionen, die man als Anwender bei einem Officeprogramm voraussetzt und muß dann leidvoll erfahren, dass man einfachste Vorgängen nur mit Kopfständen oder eben VBA erledigen kann. Super, Microsoft!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations