¿Cómo abrir varias ventanas de Outlook automáticamente cuando se inicia Outlook?

Author: Xiaoyang Last Modified: 2025-06-04

Cuando inicias la cuenta de Outlook, la ventana de Correo se abre normalmente. ¿Es posible abrir automáticamente otras ventanas de Outlook, como Correo, Calendario, Contactos y Tareas al mismo tiempo que se inicia Outlook?

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í puedo presentar un código VBA que te ayudará a abrir múltiples ventanas de Outlook, como las ventanas de Correo, Calendario, Contactos y Tareas, inmediatamente al iniciar Outlook. Por favor, sigue estos pasos:

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz doble clic en ThisOutlookSession desde el panel Project1(VbaProject.OTM) para abrir el módulo, y luego copia y pega el siguiente código en el módulo en blanco.

Código VBA: Abrir varias ventanas de Outlook automáticamente cuando se inicia 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

3. Luego sigue haciendo clic en Insertar > Módulo, copia y pega el siguiente código en el módulo en blanco abierto, ver captura de pantalla:

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

4. Luego guarda y cierra los códigos, reinicia Outlook para que los códigos 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, ver captura de pantalla:

¿Cómo abrir varias ventanas de Outlook automáticamente cuando se inicia Outlook?

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

Las mejores herramientas de productividad para Office

Últimas noticias: ¡Kutools para Outlook lanza su versión gratuita!

Suscribirse al boletín