Outlook 시작 시 여러 Outlook 창을 자동으로 여는 방법은 무엇인가요？

작성자Xiaoyang수정 날짜2024-08-20

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창에서ThisOutlookSession을(를)Project1(VbaProject.OTM)패널에서 두 번 클릭하여 모듈을 열고， 다음 코드를 빈 모듈에 복사하여 붙여넣습니다。

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-in-1)