¿Cómo hacer que Outlook abra automáticamente todos los correos entrantes de una persona específica?

En el trabajo diario, es habitual recibir una gran cantidad de correos en Outlook, lo que puede hacer que se pasen por alto mensajes importantes de una persona concreta. Para asegurarse de no perder ninguno de sus correos relevantes, puede configurar Outlook para que abra automáticamente los mensajes de ese remitente en cuanto lleguen a su bandeja de entrada. En este artículo, presento un código VBA que abre automáticamente todos los correos procedentes de un remitente específico.

Abrir automáticamente todos los correos entrantes de una persona específica con código VBA

---

Abrir automáticamente todos los correos entrantes de una persona específica con código VBA

Para abrir automáticamente los correos de una persona específica, el siguiente código VBA le será de gran ayuda. Siga estos pasos:

1. Mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga doble clic en ThisOutlookSession del panel Project1 (VbaProject.OTM) para abrir el módulo y, a continuación, copie y pegue el siguiente código en el módulo en blanco.

Código VBA: Abrir automáticamente todos los correos de una persona específica:

Public WithEvents GInboxFolder As Outlook.Folder
Public WithEvents GInboxItems As Outlook.Items
Private Sub Application_Startup()
    Set GInboxFolder = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set GInboxItems = GInboxFolder.Items
End Sub
Private Sub GInboxItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xSenders As String
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xSenders = "yy@addin99.com;applemiemie@163.com"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

Nota: En el código anterior, puede sustituir las direcciones de los remitentes por las suyas propias.

3. A continuación, guarde y cierre esta ventana de código. Reinicie Outlook para que el código surta efecto. A partir de ahora, todos los correos electrónicos de las personas que haya especificado se abrirán automáticamente. Vea la captura de pantalla: