Come aprire più finestre di Outlook automaticamente all'avvio di Outlook?

Author: Xiaoyang Last Modified: 2025-05-29

Quando avvii l'account Outlook, la finestra della Posta si apre normalmente. È possibile aprire automaticamente altre finestre di Outlook, come Posta, Calendario, Contatti e Attività contemporaneamente all'avvio di Outlook?

Apri più finestre di Outlook automaticamente all'avvio di Outlook con il codice VBA

Apri più finestre di Outlook automaticamente all'avvio di Outlook con il codice VBA

Qui posso presentare un codice VBA per aiutarti ad aprire più finestre di Outlook, come Posta, Calendario, Contatti e Attività immediatamente all'avvio di Outlook. Procedi in questo modo:

1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.

2. Nella finestra Microsoft Visual Basic for Applications, fai doppio clic su ThisOutlookSession nel riquadro Project1(VbaProject.OTM) per aprire il modulo, quindi copia e incolla il seguente codice nel modulo vuoto.

Codice VBA: Apri più finestre di Outlook automaticamente all'avvio di 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. Successivamente, continua a fare clic su Inserisci > Modulo, copia e incolla il codice sottostante nel modulo vuoto aperto, vedi screenshot:

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

4. Salva e chiudi quindi i codici, riavvia Outlook per rendere effettive le modifiche. Ora, quando apri Outlook, le finestre Posta, Calendario, Contatti e Attività verranno aperte automaticamente affiancate, vedi screenshot:

Come aprire più finestre di Outlook automaticamente all'avvio di Outlook?

Apri più finestre di Outlook automaticamente all'avvio di Outlook con il codice VBA

I migliori strumenti per la produttività in Office

Ultime novità: Kutools per Outlook lancia la versione gratuita!

Iscriviti alla newsletter