Đôi khi, bạn có thể muốn tính tổng số người nhận trong một email cụ thể. Nhưng Outlook không có chức năng “đếm” rõ ràng để hỗ trợ nó. Vì vậy, bài viết này sẽ giới thiệu 2 cách tiếp cận để đạt được nó.
Ví dụ: trong một số trường hợp, khi bạn đã thêm một số lượng lớn người nhận vào email và thấy khó quản lý họ, bạn muốn có được tổng số người nhận này. Nhưng Outlook không có hỗ trợ gốc hoặc mặc định để tính. Vì vậy, bạn phải thực hiện một số nỗ lực thêm để đạt được nó. Ở đây chúng tôi sẽ cho bạn biết 2 phương pháp.
Cách 1: Đếm Số Người Nhận Qua Nhóm Liên Hệ
- Trước tiên, bạn nên chọn tất cả người nhận trong các trường “To”, “CC” và “BCC” rồi sao chép họ vào khoảng trống trong nội dung thư.
- Sau đó, chọn tất cả những người nhận trong nội dung và sao chép chúng.
- Tiếp theo, vào ngăn Danh bạ Outlook và nhấn “Nhóm liên hệ mới”. Trong cửa sổ bật lên, hãy đặt tên là “Temp”, sau đó nhấp vào “Thêm thành viên” và chọn “Từ sổ địa chỉ” từ danh sách thả xuống.
- Sau đó, dán những người nhận đã sao chép trước đó vào trường “Thành viên ->”, giống như ảnh chụp màn hình sau:
- Sau đó, nhấp vào nút “OK” và quay lại Nhóm Liên hệ. Tất cả các bản sao sẽ được loại bỏ tự động. Bây giờ hãy lưu nó vào đĩa cục bộ dưới dạng tệp "Văn bản".
- Sau đó, mở tệp Văn bản và xóa tiêu đề vô dụng, như hình ảnh bên dưới:
- Cuối cùng, bạn có thể đặt con trỏ ở dòng cuối cùng. Bạn sẽ thấy tổng số dòng trên thanh trạng thái. Đó là tổng số người nhận.
Phương pháp 2: Đếm số người nhận với Outlook VBA
- Lúc đầu, nhấn các nút phím “Alt + F11” để truy cập cửa sổ “Visual Basic”.
- Sau đó sao chép và dán các mã VBA sau vào một mô-đun mới.
Sub CountRecipients()
Dim obApp As Outlook.Application
Dim olSel As Selection
Dim olItem As MailItem
Dim Recips As Recipients
Dim strMsg As String
Dim nRes As Integer
Set obApp = Outlook.Application
If TypeName(obApp.ActiveWindow) = "Inspector" Then
Set olItem = obApp.ActiveInspector.CurrentItem
Set Recips = olItem.Recipients
strMsg = "The current message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
Else
Set olItem = obApp.ActiveExplorer.Selection.Item(1)
Set Recips = olItem.Recipients
strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
End If
Set obApp = Nothing
Set olSel = Nothing
Set olItem = Nothing
Set Recips = Nothing
End Sub
- Sau đó, bạn có thể thoát khỏi cửa sổ “Visual Basic” và thêm macro mới vào Thanh công cụ truy cập nhanh của cửa sổ Outlook chính và cửa sổ thư.
- Cuối cùng, bạn có thể thử:
- Khi bạn chọn một email và nhấn nút trong Quick Access Toolbar, bạn sẽ nhận được thông báo như hình sau:
- Khi bạn mở một email và bấm vào nút, bạn sẽ nhận được một hộp thoại, hiển thị như hình bên dưới:
Lưu ý: Phương pháp này sẽ coi một nhóm liên hệ là một người nhận và sẽ không bỏ qua những người nhận trùng lặp.
Chống lại Macro nguy hiểm
Như chúng ta đã biết, virus lây lan qua email là một trong những mối đe dọa phổ biến nhất đối với dữ liệu. Vì vậy, điều vô cùng quan trọng là phải cấu hình Outlook chỉ cho phép sử dụng macro được ký điện tử, vì chúng có thể chặn virus và phần mềm độc hại. Thêm vào đó, bạn nên duy trì một hệ thống bảo mật mạnh mẽ. tiện ích sửa chữa tệp Outlook bị hỏng, Chẳng hạn như DataNumen Outlook Repair. Nó sẽ có ích khi Outlook của bạn bị nhiễm vi-rút hoặc bị phần mềm độc hại tấn công.
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 lỗi dữ liệu SQL 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