¿Cómo hacer que Outlook abra varias ventanas automáticamente al iniciarse?

AutorXiaoyang Fecha de modificación2024-08-20

Cuando inicia Outlook, se abre la ventana de Correo como es habitual. ¿Es posible que, al iniciar Outlook, se abran automáticamente otras ventanas como las de Correo, Calendario, Contactos y Tareas?

Abrir varias ventanas de Outlook automáticamente al iniciar Outlook con código VBA

Abrir varias ventanas de Outlook automáticamente al iniciar Outlook con código VBA

Aquí tiene un código VBA que le permitirá abrir automáticamente varias ventanas de Outlook —como las de Correo, Calendario, Contactos y Tareas— en cuanto inicie la aplicación. 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 varias ventanas de Outlook automáticamente al iniciar Outlook:

Private Sub Application_Startup()
Dim xCalendar As Folder
Dim xTasks As Folder
Dim xContacts As Folder
Dim xInbox As Folder
Dim xExplorer As Outlook.Explorer
Dim xWidth, xHeight As Integer
On Error Resume Next
xWidth = Int(GetSystemMetrics32(0) / 4) + 60
xHeight = GetSystemMetrics32(1)
Set xInbox = Outlook.Application.ActiveExplorer.CurrentFolder
xInbox.Display
Set Application.ActiveExplorer.CurrentFolder = xInbox
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = 0
    .Height = xHeight
    .Width = xWidth
End With
Set xCalendar = Outlook.Session.GetDefaultFolder(olFolderCalendar)
xCalendar.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
   .Left = xWidth
    .Height = xHeight
    .Width = xWidth
End With
Set xContacts = Outlook.Session.GetDefaultFolder(olFolderContacts)
xContacts.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = xWidth * 2
    .Height = xHeight
    .Width = xWidth
End With
Set xTasks = Outlook.Session.GetDefaultFolder(olFolderTasks)
xTasks.Display
Set xExplorer = Application.ActiveExplorer
With xExplorer
    .WindowState = olNormalWindow
    .Top = 0
    .Left = xWidth * 3
    .Height = xHeight
    .Width = xWidth
End With
End Sub

doc abrir múltiples ventanas al inicio 1

3.A continuación, haga clic en Insertar>Módulo, copie y pegue el siguiente código en el módulo en blanco que se abre; consulte la captura de pantalla:

Declare Function GetSystemMetrics32 Lib "user32" Alias "GetSystemMetrics" (ByVal xIndex As Long) As Long

doc abrir múltiples ventanas al inicio 2

4. A continuación, guarde y cierre los códigos y reinicie Outlook para que surtan efecto. Ahora, al abrir Outlook, las ventanas de Correo, Calendario, Contactos y Tareas se abrirán automáticamente una al lado de la otra; consulte la captura de pantalla:

doc abrir múltiples ventanas al inicio 3

¿Cómo hacer que Outlook abra varias ventanas automáticamente al iniciarse?

Abrir varias ventanas de Outlook automáticamente al iniciar Outlook con código VBA

Las mejores herramientas de productividad para Office

🚀 Descarga con un solo clic — Obtenga todos los complementos de Office

Muy recomendado: Kutools for Office (5 en 1)