☰

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

tag-icon • tag-icon microsoft-outlook-2016
Могу ли я заблокировать ненациональные TLD в Outlook?

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

Можно ли как-то заблокировать ненациональные домены верхнего уровня?

решение1

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

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

Я думаю, что вышеизложенное опасно, потому что это заблокирует[email protected]но этого может быть достаточно!

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

Связанный контент