Cómo limitar la cantidad de correos electrónicos abiertos al mismo tiempo con Outlook VBA

Tener muchos correos electrónicos abiertos simultáneamente puede sobrecargar Outlook y provocar que se bloquee. Por lo tanto, se recomienda limitar la cantidad de correos abiertos al mismo tiempo. En este artículo aprenderá cómo hacerlo con Outlook VBA.

Outlook es propenso a fallar cuando se sobrecarga, como cuando se abren demasiados correos electrónicos al mismo tiempo. Por lo tanto, será mejor que solo mantenga abiertos correos electrónicos limitados a la vez. Aunque Outlook no admite esto de forma nativa, puede lograrlo fácilmente a través de los siguientes medios.

Limite el número de correos electrónicos abiertos al mismo tiempo

1. Para empezar, inicie su programa Outlook.
2. Entonces necesitas acceder al editor de VBA. Puede cambiar a la pestaña "Desarrollador" y presionar el botón "Visual Basic". O simplemente presione las teclas "Alt + F11" en la pantalla principal.
3. En la siguiente ventana de "Microsoft Visual Basic para aplicaciones", puede ubicar y abrir el proyecto "ThisOutlookSession".
4. A continuación, debe copiar y pegar el código VBA a continuación en este proyecto VBA.

Public WithEvents objInspectors As Outlook.Inspectors

Private Sub Application_Startup()
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal objNewInspector As Inspector)
    Dim objInspector As Outlook.Inspector
    Dim i As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    i = 0
    If objNewInspector.CurrentItem.Class = olMail Then
 
       If objInspectors.count > 5 Then
          For Each objInspector In objInspectors
              If objInspector.CurrentItem.Class = olMail Then
                 i = i + 1
              End If
          Next
 
          If i > 5 Then
             strMsg = "You're allowed to open 5 emails at the same time. The previous email is closed!"
 
             MsgBox strMsg, vbExclamation + vbOKOnly
 
             ActiveInspector.CurrentItem.Close olSave
          End If
 
      End If
    End If
End Sub

5. Después de eso, debe firmar esta macro.

• Pulsa el botón "Herramientas" en la barra de herramientas.
• A continuación, seleccione la opción "Firma digital" de la lista desplegable.
• En el cuadro de diálogo emergente, siga las instrucciones en pantalla para completarlo.

6. Más tarde, puede cambiar la configuración de las macros para permitir las macros firmadas digitalmente.
7. Finalmente, puedes reiniciar la aplicación Outlook para activar la macro.
8. A partir de ahora, cada vez que desee abrir el sexto correo electrónico, recibirá un mensaje, como la captura de pantalla:
9. Además, el correo electrónico anterior se cerrará automáticamente.

Recupere datos valiosos de Outlook

No se puede negar que Outlook tiene una gran cantidad de características notables. Pero no significa que sea impecable. Todavía no puede salirse con la suya. Varios factores pueden provocar daños en Outlook. Por lo tanto, para recuperar Outlook datos más fáciles, debe hacer una copia de seguridad de su archivo PST a intervalos regulares. Además, una herramienta de reparación de buena calidad también es una cuestión de necesidad, como DataNumen Outlook Repair.

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 mdf y productos de software de reparación de Outlook. Para más información visite www.datanumen.com