Могу ли я заблокировать ненациональные TLD в Outlook?

Question

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

Есть ли способ, которым я могу заблокировать ненациональные TLD?

Answer 1

Я думаю, что лучший вариант - это использовать правила. перейдите в Мастер правил (Управление правилами) и выберите

1. Новое правило
2. Начните с пустого правила -> Применить правило к полученному сообщению
3. Нажмите кнопку "Далее
4. Затем проверьте with specific words in the sender's address и нажмите синий текст (в поле под шагом 2)
5. Введите текст для поиска
6. Нажмите кнопку "Далее
7. Выберите, что делать - удалите, навсегда удалите или переместите (или другое!)
8. следующий
9. Далее (если вам не нужно добавить исключение
10. Назовите его и запустите! Нажмите Готово

Я думаю, что вышеупомянутое опасно, потому что это заблокирует dave.ovhorio@email.com, но этого может быть достаточно!

Вы можете попробовать щелкнуть правой кнопкой мыши любое письмо и выбрать «Нежелательная почта» -> «Нежелательная почта». Форма здесь, перейдите на вкладку Blocked Senders и добавьте .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