Kuinka avata useita Outlook-ikkunoita automaattisesti, kun Outlook käynnistyy?

Kirjailija: Xiaoyang Viimeksi muokattu: 2024-08-20

Kun käynnistät Outlook-tilin, Sähköposti-ikkuna avautuu normaalisti. Onko mahdollista avata automaattisesti muita Outlook-ikkunoita, kuten Mail-, Calendar-, Contacts- ja Tasks-ikkunoita samaan aikaan, kun Outlook käynnistyy?

Avaa useita Outlook-ikkunoita automaattisesti, kun Outlook käynnistyy VBA-koodilla

Avaa useita Outlook-ikkunoita automaattisesti, kun Outlook käynnistyy VBA-koodilla

Tässä voin esitellä VBA-koodin, joka auttaa sinua avaamaan useita Outlook-ikkunoita, kuten Mail-, Calendar-, Contacts- ja Tasks-ikkunoita heti käynnistäessäsi Outlookin. Ole hyvä ja toimi näin:

1. Pidä alhaalla ALT + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.

2. Vuonna Microsoft Visual Basic for Applications ikkuna, kaksoisnapsauta ThisOutlookSession mistä Projekti1 (VbaProject.OTM) ruutua avataksesi moduulin ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.

VBA-koodi: Avaa useita Outlook-ikkunoita automaattisesti, kun Outlook käynnistyy:

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. Jatka sitten napsauttamalla liite > Moduulit, kopioi ja liitä alla oleva koodi avautuvaan tyhjään moduuliin, katso kuvakaappaus:

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

4. Tallenna ja sulje sitten koodit, käynnistä Outlook uudelleen, jotta koodit vaikuttavat. Nyt Outlookia avattaessa Mail-, Calendar-, Contacts- ja Tasks-ikkunat avautuvat automaattisesti vierekkäin, katso kuvakaappaus:

Kuinka avata useita Outlook-ikkunoita automaattisesti, kun Outlook käynnistyy?

Avaa useita Outlook-ikkunoita automaattisesti, kun Outlook käynnistyy VBA-koodilla

Parhaat toimiston tuottavuustyökalut

Breaking News: Kutools for Outlook julkaisee ilmaisen version!