Hoe opent u automatisch meerdere Outlook-vensters bij het opstarten van Outlook?

AuteurXiaoyang Wijzigingsdatum2024-08-20

Wanneer u uw Outlook-account opstart, wordt standaard het Mail-venster geopend. Is het mogelijk om bij het opstarten van Outlook automatisch ook andere vensters — zoals Agenda, Contactpersonen en Taken — tegelijkertijd te openen?

Automatisch meerdere Outlook-vensters openen bij het opstarten van Outlook met VBA-code

Automatisch meerdere Outlook-vensters openen bij het opstarten van Outlook met VBA-code

Hier kan ik u een VBA-code geven waarmee u bij het opstarten van Outlook direct meerdere Outlook-vensters – zoals Mail, Agenda, Contactpersonen en Taken – kunt openen. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Dubbelklik in het venster Microsoft Visual Basic for Applications op ThisOutlookSession in het deelvenster Project1 (VbaProject.OTM) om de module te openen, en plak vervolgens de volgende code in de lege module.

VBA-code: Automatisch meerdere Outlook-vensters openen bij het opstarten van 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.Klik vervolgens op Invoegen>Module, kopieer de onderstaande code en plak deze in de geopende lege module; zie schermafbeelding:

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

4. Sla daarna de code op en herstart Outlook om de wijzigingen toe te passen. Vanaf nu worden bij het openen van Outlook de vensters Mail, Agenda, Contactpersonen en Taken automatisch naast elkaar geopend; zie schermafbeelding:

Hoe opent u automatisch meerdere Outlook-vensters bij het opstarten van Outlook?

Automatisch meerdere Outlook-vensters openen bij het opstarten van Outlook met VBA-code

Beste Office-productiviteitstools

🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen

Sterk aanbevolen: Kutools for Office (5-in-1)