Come fare per aprire automaticamente più finestre di Outlook all’avvio del programma?

AutoreXiaoyang Data di modifica2024-08-20

Quando si avvia Outlook, viene normalmente aperta la finestra Posta. È possibile configurare Outlook in modo da aprire automaticamente altre finestre—come Posta, Calendario, Contatti e Attività—già all’avvio?

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

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

In questa sede, posso presentarti un codice VBA che ti permette di aprire immediatamente più finestre di Outlook—come Posta, Calendario, Contatti e Attività—non appena avvii il programma. Procedi nel seguente modo:

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

2. Nella finestra di 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 automaticamente più finestre di Outlook 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, fai clic su Inserisci>Modulo, copia e incolla il codice seguente nel modulo vuoto aperto; vedi screenshot:

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

4. Salva e chiudi il codice, quindi riavvia Outlook affinché le modifiche abbiano effetto. Da ora in poi, all’apertura di Outlook, le finestre di Posta, Calendario, Contatti e Attività si apriranno automaticamente affiancate; vedi screenshot:

Come fare per aprire automaticamente più finestre di Outlook all’avvio del programma?

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

Migliori strumenti per la produttività in Office

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)