Wie öffnet man beim Start von Outlook automatisch mehrere Outlook-Fenster?

AutorXiaoyang Änderungsdatum2024-08-20

Wenn Sie Ihr Outlook-Konto starten, öffnet sich das E-Mail-Fenster wie gewohnt. Können beim Start von Outlook auch andere Outlook-Fenster – wie Kalender, Kontakte und Aufgaben – automatisch mitgeöffnet werden?

Automatisches Öffnen mehrerer Outlook-Fenster beim Start von Outlook mithilfe eines VBA-Codes

Automatisches Öffnen mehrerer Outlook-Fenster beim Start von Outlook mithilfe eines VBA-Codes

Hier stelle ich Ihnen einen VBA-Code vor, mit dem Sie beim Start von Outlook automatisch mehrere Outlook-Fenster – wie E-Mail, Kalender, Kontakte und Aufgaben – öffnen können. Gehen Sie dazu wie folgt vor:

1. Halten Sie die ALT + F11-Tasten gedrückt, um das Microsoft Visual Basic for Applications-Fenster zu öffnen.

2. Doppelklicken Sie im Microsoft Visual Basic for Applications-Fenster auf ThisOutlookSession im Bereich Project1 (VbaProject.OTM), um das Modul zu öffnen, und fügen Sie anschließend den folgenden Code in das leere Modul ein.

VBA-Code: Automatisches Öffnen mehrerer Outlook-Fenster beim Start von 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.Klicken Sie dann auf Einfügen>Modul, kopieren Sie den unten stehenden Code und fügen Sie ihn in das geöffnete leere Modul ein (siehe Screenshot):

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

4. Speichern Sie den Code anschließend und starten Sie Outlook neu, damit die Änderungen wirksam werden. Beim nächsten Start von Outlook öffnen sich die Fenster für E-Mail, Kalender, Kontakte und Aufgaben automatisch nebeneinander (siehe Screenshot):

Wie öffnet man beim Start von Outlook automatisch mehrere Outlook-Fenster?

Automatisches Öffnen mehrerer Outlook-Fenster beim Start von Outlook mithilfe eines VBA-Codes

Beste Office-Produktivitätswerkzeuge

🚀 Ein-Klick-Download – Holen Sie sich alle Office-Add-Ins

Stark empfohlen: Kutools for Office (5-in-1)