Nếu bạn thêm các nhóm liên hệ vào trường “Tới” của email hiện tại, có thể có một số nhóm trùng lặp trong số đó. Bài viết này sẽ hướng dẫn bạn cách sử dụng VBA để nhanh chóng loại bỏ những người nhận trùng lặp.
Khi soạn email, nếu bạn không chỉ thêm các liên hệ mà còn thêm các nhóm liên hệ làm người nhận, đôi khi, có thể có một số người nhận trùng lặp do các nhóm liên hệ được thu gọn theo mặc định. Trong trường hợp này, nếu bạn muốn tìm ra những người trùng lặp, trước tiên bạn phải mở rộng các nhóm liên hệ, sau đó so sánh người nhận theo cách thủ công, điều này đã được giới thiệu kỹ lưỡng trong bài viết trước của tôi– “Cách xóa người nhận trùng lặp khỏi email Outlook của bạn”. Không nghi ngờ gì, nó rất tẻ nhạt. Vì vậy, nhiều người dùng mong muốn có một cách nhanh chóng để loại bỏ những người nhận trùng lặp. Trong phần tiếp theo, chúng tôi sẽ hướng dẫn bạn sử dụng nó với Outlook VBA.
Nhanh chóng loại bỏ người nhận trùng lặp trong email Outlook của bạn
- Trước tiên, hãy khởi chạy ứng dụng Outlook của bạn.
- Sau đó chuyển sang tab “Nhà phát triển” và nhấp vào nút “Visual Basic” hoặc chỉ cần nhấn phím “Alt + F11”.
- Tiếp theo trong cửa sổ “Microsoft Visual Basic for Applications”, bạn có thể mở một mô-đun trống.
- Sau đó, sao chép và dán các mã VBA sau vào mô-đun này.
Sub RemoveDuplicateRecipients()
Dim objCurrentMail As MailItem
Dim objRecipients As Recipients
Dim ContactGroupFound As Boolean
Dim i, n As Long
Set objCurrentMail = ActiveInspector.CurrentItem
ContactGroupFound = True
While ContactGroupFound = True
Set objRecipients = objCurrentMail.Recipients
ContactGroupFound = False
'Expand the contact groups in "To" field
For i = objRecipients.Count To 1 Step -1
If objRecipients(i).AddressEntry.DisplayType <> olUser Then
For n = 1 To objRecipients(i).AddressEntry.Members.Count
If objRecipients(i).AddressEntry.Members.Item(n).DisplayType = olUser Then
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Address)
Else
objCurrentMail.Recipients.Add (objRecipients(i).AddressEntry.Members.Item(n).Name)
ContactGroupFound = True
End If
Next
objRecipients(i).Delete
End If
Next i
objRecipients.ResolveAll
Wend
'Remove the duplicate recipients
For i = objRecipients.Count To 1 Step -1
For n = (i - 1) To 1 Step -1
If objRecipients(i).Address = objRecipients(n).Address Then
objRecipients(i).Delete
Exit For
End If
Next
Next
End Sub
- Sau đó, bạn có thể thêm dự án VBA mới vào Thanh công cụ truy cập nhanh của cửa sổ thông báo.
- Sau đó, bạn cần đặt mức bảo mật macro Outlook của mình ở mức thấp.
- Cuối cùng bạn có thể có một thử.
- Đầu tiên, chỉ cần soạn một email như bình thường.
- Sau đó, thêm các nhóm liên hệ và liên hệ vào trường “Tới”.
- Tiếp theo, bạn có thể nhấp vào nút macro mới trong Thanh công cụ truy cập nhanh.
- Ngay lập tức, Outlook sẽ tự động mở rộng các nhóm liên hệ rồi loại bỏ những người nhận trùng lặp.
Bảo vệ dữ liệu Outlook có giá trị của bạn
Vì Outlook dễ gặp sự cố nên dữ liệu Outlook của bạn dễ bị hỏng. Vì vậy, bạn phải nỗ lực rất nhiều để bảo vệ tệp Outlook của mình. Trước hết, bạn cần sao lưu tệp PST của mình một cách thường xuyên. Nó sẽ tạo điều kiện thuận lợi PST hỏng Sửa chữa. Ngoài ra, bạn nên chuẩn bị tốt hơn một công cụ sửa lỗi mạnh mẽ tiện dụng, chẳng hạn như DataNumen Outlook Repair.
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