如何在 Outlook 啟動時自動開啟多個 Outlook 視窗？

作者Xiaoyang修改日期2024-08-20

當您在啟動 Outlook 帳戶時，通常只會開啟郵件視窗。是否能讓 Outlook 在啟動時自動同時開啟其他視窗，例如郵件、行事曆、連絡人與工作視窗？

使用 VBA 程式碼，在 Outlook 啟動時自動開啟多個 Outlook 視窗

使用 VBA 程式碼，在 Outlook 啟動時自動開啟多個 Outlook 視窗

在此，我提供一段 VBA 程式碼，協助您在啟動 Outlook 時立即開啟多個 Outlook 視窗，例如郵件、行事曆、聯絡人與工作視窗。請依照下列步驟操作：

1. 按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，於 Project 1 (VbaProject.OTM) 窗格內雙擊 ThisOutlookSession，即可開啟模組，並將以下程式碼複製貼上至空白模組中。

VBA 程式碼：在 Outlook 啟動時自動開啟多個 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. 接著點擊插入＞模組，並將下方程式碼複製貼上至開啟的空白模組中，詳情請參閱截圖：

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

4. 儲存並關閉程式碼後，重新啟動 Outlook 以套用效果。現在，當您在開啟 Outlook 時，郵件、行事曆、聯絡人與工作視窗將自動並排顯示，請參閱截圖：

如何在 Outlook 啟動時自動開啟多個 Outlook 視窗？

使用 VBA 程式碼，在 Outlook 啟動時自動開啟多個 Outlook 視窗

最佳 Office 生產力工具

🚀 一鍵下載 — 立即取得所有 Office 增益集

強烈推薦：Kutools for Office（5 合 1）