Posso bloquear TLDs não nacionais no Outlook?

Question

Recebo bastante spam na minha caixa de correio de fontes francesas. Bloquear o remetente nas opções de lixo eletrônico não adianta, pois eles sempre usam um endereço de e-mail diferente. Eu sei que posso bloquear domínios de nível superior (TLDs), mas grande parte do spam vem do ovhTLD (ovh é um ISP francês), e o Outlook parece saber apenas sobre TLDs nacionais.

Existe uma maneira de bloquear TLDs não nacionais?

Answer 1

Acho que a melhor opção é usar Regras. vá para o Assistente de regras (Gerenciar regras) e escolha

1. Nova regra
2. Comece com uma regra em branco -> Aplicar regra na mensagem que recebo
3. Clique em Próximo
4. Em seguida, marque with specific words in the sender's addresse clique no texto azul (na caixa da etapa 2)
5. Digite o texto a ser pesquisado
6. Clique em próximo
7. Escolha o que fazer - Exclua-o, exclua-o permanentemente ou mova-o (ou outro!)
8. Próximo
9. Próximo (a menos que você precise adicionar uma exceção
10. Dê um nome e execute-o! Clique em Concluir

Eu acho que o que foi dito acima é perigoso porque bloquearia[e-mail protegido]mas pode ser suficiente!

Você pode tentar clicar com o botão direito em qualquer e-mail e escolher lixo -> opções de lixo eletrônico. Formulário aqui, vá para a aba Remetentes Bloqueados e adicione .ovh . Isso também tem o mesmo problema da regra acima.

Tenho certeza que a regra mencionada acima funcionaria, mas caso contrário, você teria que escrever um script VBa... ISSO NÃO FOI TESTADO. Faça backup de seus e-mails primeiro, por precaução!

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