Чи можу я заблокувати ненаціональні TLD в Outlook?

Я отримую досить багато спаму у своїй поштовій скриньці з французьких джерел. Блокувати відправника за непрацездатними параметрами - не корисно, оскільки вони щоразу використовують іншу адресу електронної пошти. Я знаю, що я можу заблокувати домени верхнього рівня (TLD), але значна частина спаму походить від ovhTLD (ovh - це французький ISP), і Outlook, здається, знає лише про національні TLD.

Чи є спосіб я блокувати недержавні TLD?

microsoft-outlook-2016

— Йоріс Гроосман
джерело

Я спробував це зараз, але електронну пошту не видаляють. Ну, можливо, папка "Вхідні" не сканується на змінений список. Здогадайтесь, мені доведеться почекати і подивитися. Спасибі за вашу допомогу.

— Джоріс Гроосман

Я думаю, що найкращим варіантом є використання Правил. перейдіть до Майстра правил (Manage Rules) і виберіть

Нове правило
Почніть з пустого правила -> Застосувати правило до повідомлення, яке я отримую
Клацніть Далі
Потім поставте прапорець with specific words in the sender's addressі натисніть синій текст (у полі під кроком 2)
Введіть текст, який потрібно шукати
Клацніть далі
Виберіть, що робити - Видаліть, назавжди видаліть або перемістіть (або інше!)
Далі
Далі (якщо не потрібно додати виняток
Назвіть це і запустіть його! Клацніть Готово

Я думаю, що вищесказане є небезпечним, оскільки це заблокує dave.ovhorio@email.com, але це може бути достатньо!

Ви можете спробувати правою кнопкою миші натиснути будь-яку електронну пошту та вибрати параметри небажаної пошти. Формуйте тут, перейдіть на вкладку Заблоковані відправники та додайте .ovh. Це також має те саме питання, що і вищезазначене правило.

Я впевнений, що згадане вище правило спрацювало б, але у випадку, якщо ні, вам доведеться написати сценарій VBa ... ЦЕ НЕ перевірено. Спершу створіть резервну копію електронних листів просто

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

— Дейв
джерело