¿Cómo filtrar el correo electrónico de Outlook usando una regla con un script VBA?

Ciertas cosas no son posibles utilizando las reglas de correo electrónico predeterminadas, como buscar asuntos o cuerpos de mensajes con comodines. Puede hacer varias palabras, pero no es lo mismo si necesita las palabras con un carácter separado el uno del otro. ¿Cómo puedo escribir mi propio código de Visual Basic para Aplicaciones para filtrar el correo electrónico de Outlook?

Miré hacia arriba y hacia abajo para todas estas partes necesarias para que este filtro simple suceda. Los filtros procmail de Unix son muy fáciles de usar en comparación. Todos los asistentes de Microsoft Outlook se interponen en el camino de un filtro simple usando comodines. Si bien muchas condiciones de filtro de correo electrónico que Microsoft proporciona de manera predeterminada son útiles, nada puede superar la flexibilidad y la personalización del código en ejecución.

1. Escribe tu código.

Alt-F11 muestra el editor de código VBA. Haga doble clic en ThisOutlookSession. Escribe tu código. En mi caso, está usando una expresión regular en la línea de asunto y moviéndola no al DefaultFolder sino a mi propio pst en una subcarpeta.

Sub filter(Item As Outlook.MailItem)
    Dim ns As Outlook.NameSpace
    Dim MailDest As Outlook.Folder
    Set ns = Application.GetNamespace("MAPI")
    Set Reg1 = CreateObject("VBScript.RegExp")
    Reg1.Global = True
    Reg1.Pattern = "(.*Abc.20.*)"
    If Reg1.Test(Item.Subject) Then
        Set MailDest = ns.Folders("Personal Folders").Folders("one").Folders("a")
        Item.Move MailDest
    End If
End Sub

2. Ejecute el código para cada correo electrónico entrante con una regla.

En reglas, seleccione "Administrar reglas y alertas ...". La nueva regla se verá así

Apply this rule after the message arrives run Project1.ThisOutlookSession.filter

Para obtener esto, para el Paso 1: Seleccione las condiciones: simplemente haga clic en Siguiente. Confirme que se aplica a todos los mensajes haciendo clic en Aceptar. Para Seleccionar acción (es), marque "ejecutar un script" y luego haga clic para elegir el script de filtro y seleccione Siguiente o Finalizar. Para Seleccionar excepciones, haga clic en Siguiente o Finalizar. Déle un buen nombre como vba-filter y marque Activar esta regla. haga clic en Finalizar Como se adapta a una carpeta local, haga clic en Aceptar cuando solicite confirmar que esta regla no funcionará para el correo electrónico que revise en línea o desde otro dispositivo. Haga clic en Aceptar en el cuadro de diálogo Reglas y alertas.

3. A Outlook no le gusta cuando las macros no están firmadas. Para auto-firmar sus macros, cree un certificado y úselo .