Cómo abrir automáticamente todos los correos electrónicos entrantes de personas específicas en Outlook

Outlook no proporciona una función para abrir automáticamente todos los correos electrónicos entrantes de personas específicas. Por lo tanto, este artículo le mostrará dicho método.

Es seguro que no querrá perderse ningún correo electrónico de personas extremadamente importantes, como los correos electrónicos de su superior. En este caso, puede utilizar la regla de Outlook para mostrar una alerta particular cuando tales correos electrónicos lleguen a su buzón. Aparte de esto, es posible que también desee que Outlook abra automáticamente dichos correos electrónicos. Aunque no es compatible con la regla de Outlook, aún puede realizarlo a través de Outlook VBA. Ahora, a continuación, expondremos un fragmento de código VBA para ayudarlo. Siga leyendo para obtenerlo.

Abrir automáticamente todos los correos electrónicos entrantes de personas específicas

1. Para empezar, acceda al editor VBA de Outlook consultando “Cómo ejecutar código VBA en su Outlook".
2. Posteriormente, abra el proyecto "ThisOutlookSession" y copie el siguiente código VBA en él.

Public WithEvents objInbox As Outlook.Folder
Public WithEvents objInboxItems As Outlook.Items

Private Sub Application_Startup()
    Set objInbox = Outlook.Application.Session.GetDefaultFolder(olFolderInbox)
    Set objInboxItems = objInbox.Items
End Sub

'Occurs when incoming emails arrive in Inbox
Private Sub objInboxItems_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim strSenders As String
    Dim varSenders As Variant
    Dim i As Long
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
 
       'Change the specific persons
       strSenders = "bob_black@datanumen.com; shelly@datanumen.com; kim@datanumen.com"
 
       varSenders = Split(strSenders, ";")
 
       'Open the emails from specific persons
       For i = 0 To UBound(varSenders)
           If objMail.SenderEmailAddress = varSenders(i) Then
              objMail.Display
              Exit For
           End If
       Next
    End If
End Sub

3. Después, reinicie la aplicación Outlook para activar esta macro.
4. Ahora puedes intentarlo. Simplemente mueva un correo electrónico de remitentes específicos a la Bandeja de entrada. De inmediato, este correo electrónico se abrirá automáticamente en su propia ventana.

Resuelva los molestos problemas de Outlook

Si lleva décadas utilizando Outlook, es muy probable que se haya encontrado con diversos errores y problemas. Por ejemplo, al iniciar Outlook, recibió un mensaje de error que indicaba que su archivo PST de Outlook era inaccesible. Este error suele indicar que el archivo PST está dañado. En este caso, deberá: arreglar PST archivo. Podría ser considerablemente complicado si solo utiliza la herramienta de reparación de la bandeja de entrada. Sin embargo, si recurre a una herramienta más poderosa y confiable, como DataNumen Outlook Repair, la tarea sería mucho más sencilla.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar sql y productos de software de reparación de Outlook. Para más información visite www.datanumen.com