Outlook이 시작될 때 여러 개의 Outlook 창을 자동으로 열려면 어떻게 해야 하나요?

Author: Xiaoyang Last Modified: 2025-08-06

Outlook 계정을 실행하면 일반적으로 메일 창이 열립니다. Outlook이 시작될 때 메일, 캘린더, 연락처 및 작업 창과 같은 다른 Outlook 창을 동시에 자동으로 열 수 있을까요?

VBA 코드를 사용하여 Outlook 시작 시 여러 Outlook 창 자동으로 열기

VBA 코드를 사용하여 Outlook 시작 시 여러 Outlook 창 자동으로 열기

여기에서는 Outlook을 실행할 때 메일, 캘린더, 연락처 및 작업 창과 같은 여러 Outlook 창을 즉시 열 수 있도록 도와주는 VBA 코드를 소개합니다. 다음 단계를 따르세요:

1. ALT + F11 키를 눌러 Microsoft Visual Basic for Applications 창을 엽니다.

2. Microsoft Visual Basic for Applications 창에서 Project1(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 창 자동으로 열기

최고의 오피스 생산성 도구

속보: Kutools for Outlook 무료 버전 출시!

뉴스레터 구독하기