Tôi có thể chặn TLD không quốc gia trong Outlook không?

Tôi nhận được khá nhiều thư rác trong hộp thư của tôi từ các nguồn của Pháp. Chặn người gửi dưới các tùy chọn rác không được sử dụng vì mỗi lần họ sử dụng một địa chỉ email khác nhau. Tôi biết tôi có thể chặn các tên miền cấp cao (TLD), nhưng phần lớn thư rác đến từ ovhTLD (ovh là một ISP của Pháp) và dường như Outlook chỉ biết về TLD quốc gia.

Có cách nào để tôi có thể chặn TLD không quốc gia không?

Tôi nghĩ rằng lựa chọn tốt nhất là sử dụng Rules. đi tới Trình hướng dẫn quy tắc (Quản lý quy tắc) và chọn

1. Quy tắc mới
2. Bắt đầu từ một quy tắc trống -> Áp dụng quy tắc cho tin nhắn tôi nhận được
3. Nhấn tiếp
4. Sau đó kiểm tra with specific words in the sender's addressvà nhấp vào văn bản màu xanh (trong hộp dưới bước 2)
5. Nhập văn bản cần tìm kiếm
6. Nhấn tiếp
7. Chọn những việc cần làm - Xóa nó, xóa vĩnh viễn hoặc di chuyển nó (hoặc khác!)
8. Kế tiếp
9. Tiếp theo (trừ khi bạn cần thêm một ngoại lệ
10. Đặt tên cho nó và chạy nó! Nhấp vào Kết thúc

Tôi nghĩ ở trên là một điều nguy hiểm vì nó sẽ chặn dave.ovhorio@email.com nhưng, nó có thể đủ!

Bạn có thể thử và nhấp chuột phải vào bất kỳ email nào và chọn rác -> tùy chọn email rác. Biểu mẫu ở đây, chuyển đến tab Người gửi bị chặn và thêm .ovh. Điều này cũng có vấn đề tương tự như quy tắc trên.

Tôi chắc chắn quy tắc được đề cập ở trên sẽ hoạt động, nhưng trong trường hợp không, bạn sẽ phải viết một tập lệnh VBa ... ĐIỀU NÀY KHÔNG ĐƯỢC KIỂM TRA. Sao lưu email của bạn đầu tiên chỉ cần incase!

Private Sub Application_NewMailEx _
                     (ByVal EntryIDCollection As String)
    Dim arr() As String
    Dim i As Integer
    Dim ns As Outlook.NameSpace
    Dim itm As MailItem
    Dim m As Outlook.MailItem
    On Error Resume Next
    Set ns = Application.Session
    arr = Split(EntryIDCollection, ",")
    For i = 0 To UBound(arr)
        Set itm = ns.GetItemFromID(arr(i))
        If itm.Class = olMail Then
             Set m = itm
             If InStr(0, m.SenderEmailAddress, ".ovh", 1) Then
                 m.Delete
             End If
        End If
    Next
    Set ns = Nothing
    Set itm = Nothing
    Set m = Nothing
End Sub