☰

¿Puedo bloquear TLD no nacionales en Outlook?

tag-icon • tag-icon microsoft-outlook-2016
¿Puedo bloquear TLD no nacionales en Outlook?

Recibo bastante spam en mi buzón de correo de fuentes francesas. Bloquear al remitente en las opciones de correo no deseado no sirve de nada, ya que cada vez utiliza una dirección de correo electrónico diferente. Sé que puedo bloquear dominios de nivel superior (TLD), pero gran parte del spam proviene del ovhTLD (ovh es un ISP francés) y Outlook solo parece conocer los TLD nacionales.

¿Existe alguna manera de bloquear los TLD no nacionales?

Respuesta1

Creo que la mejor opción es utilizar Reglas. vaya al Asistente de reglas (Administrar reglas) y elija

  1. Nueva regla
  2. Comenzar desde una regla en blanco -> Aplicar regla en el mensaje que recibo
  3. Haga clic en Siguiente
  4. Luego marque with specific words in the sender's addressy haga clic en el texto azul (en el cuadro debajo del paso 2)
  5. Introduzca el texto a buscar
  6. Haga clic en Siguiente
  7. Elija qué hacer: eliminarlo, eliminarlo permanentemente o moverlo (¡u otro!)
  8. Próximo
  9. Siguiente (a menos que necesite agregar una excepción
  10. ¡Nómbrelo y ejecútelo! Haga clic en Finalizar

Creo que lo anterior es peligroso porque bloquearía[correo electrónico protegido]¡pero puede que sea suficiente!

Puede intentar hacer clic derecho en cualquier correo electrónico y elegir correo no deseado -> opciones de correo electrónico no deseado. Formulario aquí, vaya a la pestaña Remitentes bloqueados y agregue .ovh. Esto también tiene el mismo problema que la regla anterior.

Estoy seguro de que la regla mencionada anteriormente funcionaría, pero en caso de que no, tendrías que escribir un script VBa... ESTO NO ESTÁ PROBADO. ¡Primero haga una copia de seguridad de sus correos electrónicos por si acaso!

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

información relacionada