Posso bloquear TLDs não nacionais no Outlook?

Question

Recebo bastante spam na minha caixa de correio de fontes francesas. Bloquear o remetente em opções de lixo eletrônico não é útil, pois ele sempre usa um endereço de email diferente. Eu sei que posso bloquear domínios de primeiro nível (TLDs), mas muito do spam vem do ovh TLD (o ovh é um ISP francês) e o Outlook parece saber apenas sobre TLDs nacionais.

Existe alguma maneira de bloquear DPNs 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. Iniciar a partir de uma regra em branco - > Aplicar regra na mensagem que recebo
3. Clique em Próximo
4. Em seguida, verifique with specific words in the sender's address e clique no texto azul (na caixa, na etapa 2)
5. Digite o texto a ser pesquisado
6. Clique em próximo
7. Escolha o que fazer - Exclua, exclua ou mova permanentemente (ou outro!)
8. Próximo
9. Próximo (a menos que você precise adicionar uma exceção
10. Nomeie-o e execute-o! Clique em Concluir

Eu acho que o acima é perigoso porque bloquearia [email protected] mas, isso pode ser suficiente!

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

Tenho certeza de que a regra mencionada acima funcionaria, mas caso contrário, você teria que escrever um script VBa ... ISTO NÃO É TESTADO. Faça o backup dos seus e-mails primeiro, apenas em caso positivo!

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