¿Cómo abrir todos los correos electrónicos entrantes de una persona específica automáticamente en Outlook?

En nuestro trabajo diario, tal vez lleguen muchos correos electrónicos a nuestro Outlook, en este caso, es posible que ignore algunos correos importantes de una persona específica. Para evitar perder algunos correos electrónicos importantes de alguien, puede hacer que los correos electrónicos se abran automáticamente cuando lleguen a su Outlook. En este artículo, presentaré un código VBA para abrir todos los correos electrónicos de un remitente específico.

Abra todos los correos electrónicos entrantes de una persona específica automáticamente con el código VBA

Abra todos los correos electrónicos entrantes de una persona específica automáticamente con el código VBA

Para abrir automáticamente los correos electrónicos de una persona específica, el siguiente código VBA puede ayudarlo, haga lo siguiente:

1. Mantenga pulsado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En la Microsoft Visual Basic para aplicaciones ventana, haga doble clic Esta sesión de Outlook del desplegable Proyecto1 (VbaProject.OTM) panel para abrir el modo y luego copie y pegue el siguiente código en el módulo en blanco.

Código VBA: abre automáticamente todos los correos electrónicos 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 = ";"
    If InStr(xSenders, xMailItem.SenderEmailAddress) = 0 Then Exit Sub
    xMailItem.Display
End Sub

doc abrir correos electrónicos por remitente 1

Note: En el código anterior, puede cambiar las direcciones de los remitentes por las suyas.

3. Luego, guarde y cierre esta ventana de código. Reinicie Outlook para que el código entre en vigor, a partir de ahora, cuando lleguen los correos electrónicos de las personas que especificó, todos se abrirán automáticamente. Ver captura de pantalla:

doc abrir correos electrónicos por remitente 2