Jak automaticky otevřít více oken aplikace Outlook při spuštění aplikace Outlook?

Autor: Xiaoyang Naposledy změněno: 2024-08-20

Při spuštění účtu Outlook se okno Pošta otevře jako obvykle. Je možné automaticky otevírat další okna Outlooku, například okna Pošta, Kalendář, Kontakty a Úkoly, při spuštění Outlooku?

Otevřete více oken Outlooku automaticky, když Outlook začíná kódem VBA

Otevřete více oken Outlooku automaticky, když Outlook začíná kódem VBA

Tady mohu představit kód VBA, který vám pomůže při otevření aplikace Outlook, jako je Okna pošty, kalendáře, kontaktů a úkolů, otevírat hned při spuštění aplikace Outlook. Udělejte prosím toto:

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, dvakrát klikněte ThisOutlookSession z Project1 (VbaProject.OTM) v podokně otevřete modul a poté zkopírujte a vložte následující kód do prázdného modulu.

Kód VBA: Otevírat více oken aplikace Outlook automaticky při spuštění aplikace 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. Poté pokračujte kliknutím Vložit > Modul, zkopírujte a vložte pod kód do otevřeného prázdného modulu, viz screenshot:

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

4. Poté uložte a zavřete kódy, restartujte Outlook, aby se kódy projevily. Nyní se při otevírání Outlooku vedle sebe automaticky otevřou okna Pošta, Kalendář, Kontakty a Úkoly, viz snímek obrazovky: