Outlook 시작 시 자동으로 모든 폴더 확장 하는 방법은 무엇인가요？

작성자Kelly수정 날짜2024-09-18

일반적으로 Outlook 의 탐색에서 폴더를 확장하거나 축소한 후 프로그램을 종료하면, Outlook 을 다시 열 때 해당 폴더는 이전 상태(확장 또는 축소)를 유지합니다. 그러나 Outlook 을 시작할 때마다 모든 폴더가 자동으로 확장되기를 원한다면 어떻게 해야 할까요？ 이 문서에서는 이를 구현하는 VBA 솔루션을 제공합니다。

VBA 를 사용하여 Outlook 시작 시 자동으로 모든 폴더 확장

VBA 를 사용하여 Outlook 시작 시 자동으로 모든 폴더 확장

이 가이드에서는 Outlook 을 실행할 때마다 탐색에서 자동으로 모든 폴더 확장 하도록 VBA 스크립트를 사용하는 방법을 설명합니다。 다음 단계에 따라 VBA 스크립트를 적용하세요：

Alt + F11키를 동시에 눌러Microsoft Visual Basic for Applications창을 엽니다。

Project 1및Microsoft Outlook Objects를프로젝트창에서 확장하고，ThisOutlookSession창을 두 번 클릭하여 연 다음 아래의 VBA 코드를 붙여넣으세요。

VBA: Outlook 에서 자동으로 모든 폴더 확장

Public WithEvents GEx As Explorer
Public GFlag As Boolean
Private Sub Application_Startup()
  'Update by ExtendOffice 2023/12/08
  Set GEx = Application.ActiveExplorer
  GFlag = False
End Sub

Private Sub GEx_SelectionChange()
  If GFlag = False Then
    ExpandAllFolders
  End If
  GFlag = True
End Sub

Public Sub ExpandAllFolders()
  Dim xNameSpace As Outlook.NameSpace
  Dim xFlds As Outlook.Folders
  Dim xCurrFld As Outlook.MAPIFolder
  Dim xFld As Outlook.MAPIFolder
  Dim xExpandDefaultStoreOnly As Boolean
  Dim xModule As NavigationModule
  On Error Resume Next
  xExpandDefaultStoreOnly = False
  Set xNameSpace = Application.Session
  Set xModule = Application.ActiveExplorer.NavigationPane.CurrentModule
  Set xCurrFld = Application.ActiveExplorer.CurrentFolder
  If xExpandDefaultStoreOnly = True Then
    Set xFld = xNameSpace.GetDefaultFolder(olFolderInbox)
    Set xFld = xFld.Parent
    Set xFlds = xFld.Folders
    LoopFolders xFlds, True
  Else
    LoopFolders xNameSpace.Folders, True
    LoopFolders xNameSpace.Folders, False
  End If
  DoEvents
  Set Application.ActiveExplorer.NavigationPane.CurrentModule = xModule
  Set Application.ActiveExplorer.CurrentFolder = xCurrFld
  Set xNameSpace = Nothing
  Set xModule = Nothing
  Set xCurrFld = Nothing
End Sub

Private Sub LoopFolders(Flds As Outlook.Folders, ByVal All As Boolean)
  Dim xFld As Outlook.MAPIFolder
  On Error Resume Next
  For Each xFld In Flds
    Select Case All
      Case True
        If xFld.DefaultItemType = olMailItem Then
          Set Application.ActiveExplorer.CurrentFolder = xFld
          DoEvents
          If xFld.Folders.Count > 0 Then
            LoopFolders xFld.Folders, All
          End If
        End If
      Case False
        Set Application.ActiveExplorer.CurrentFolder = xFld
        DoEvents
        If xFld.Folders.Count > 0 Then
          LoopFolders xFld.Folders, All
        End If
    End Select
  Next
End Sub

코드를 저장하고Microsoft Visual Basic for Applications창을 닫습니다。

이제부터 Outlook 을 다시 시작할 때 모든 폴더가 자동으로 확장됩니다。

참고：

이 VBA 는 Outlook 을 다시 시작할 때 축소된 검색 폴더를 열 수 없습니다。
VBA 스크립트가 올바르게 작동하려면 Outlook 의 매크로 설정을 조정해야 합니다。파일>옵션>신뢰 센터>신뢰 센터 설정>매크로 설정으로 이동하여모든 매크로 사용옵션을 선택하세요。 이 설정을 통해 VBA 스크립트가 제한 없이 실행됩니다。

Outlook 의 AI 메일 어시스턴트： 더 스마트한 답장， 더 명확한 커뮤니케이션(클릭 한 번으로 마법처럼！)

Kutools for Outlook 에서 제공하는 AI 메일 어시스턴트로 일상적인 Outlook 작업을 간편하게 처리하세요。 이 강력한 도구는 과거 이메일에서 학습하여 지능적이고 정확한 응답을 제안하고， 이메일 콘텐츠를 최적화하며， 메시지 작성을 손쉽게 도와줍니다。

이 기능은 다음을 지원합니다：

스마트 답장： 과거 대화를 기반으로 맞춤형， 정확하고 바로 사용 가능한 응답을 받아보세요。
향상된 콘텐츠： 이메일 문구를 자동으로 다듬어 명확성과 효과를 높입니다。
손쉬운 작문: 키워드만 입력하면 AI 가 나머지를 처리해 드립니다。 다양한 글쓰기 스타일 제공。
지능형 확장 기능： 맥락을 이해하는 제안으로 생각을 자연스럽게 확장하세요。
요약 기능： 긴 이메일을 즉시 간결하게 요약해 드립니다。
글로벌 지원： 이메일을 손쉽게 모든 언어로 번역하세요。

이 기능은 다음을 지원합니다：

스마트 이메일 답장
최적화된 콘텐츠
키워드 기반 초안 작성
지능형 콘텐츠 확장
이메일 요약
다국어 번역

기다리지 마세요—지금 AI 메일 어시스턴트를 다운로드하고!

최고의 Office 생산성 도구

Kutools for Outlook 의 완전히 새로운 버전을 100+가지 놀라운 기능과 함께 경험해 보세요！지금 다운로드하세요！

🤖KUTOOLS AI:고급 AI 기술을 활용하여 이메일 회신， 요약， 최적화， 확장， 번역， 작성 등 이메일 관련 작업을 손쉽게 처리합니다。

📧이메일 자동화:자동 회신(POP 및 IMAP 지원)/이메일 예약 발송/이메일 발송 시 규칙에 따라 자동 참조/숨은 참조/자동 전달(고급 규칙)/자동 인사말 추가/수신자 여러 명이 포함된 이메일을 자동으로 개별 메시지로 분할...

📨이메일 관리:이메일 회수/제목 등을 기준으로 피싱 이메일 차단/중복된 이메일 삭제/고급 검색/폴더 정리...

📁첨부파일 프로:일괄 저장/일괄 분리/일괄 압축/자동 저장/자동 분리/자동 압축...

🌟인터페이스 마법:😊더 예쁘고 멋진 이모지 제공/중요 이메일 수신 시 알림/Outlook 종료 대신 최소화...

👍한 번의 클릭으로 해결:모두 회신(첨부 파일 포함)/피싱 이메일 방지/🕘발신자의 현재 시간 시간대 표시...

👩🏼‍🤝‍👩🏻연락처 및 캘린더:선택한 이메일에서 연락처 추가 일괄 생성/연락처 그룹를 개별 그룹으로 분할/생일 알림 제거...

Kutools 를 선호하는 언어로 사용하세요 – 영어， 스페인어， 독일어， 프랑스어， 중국어 및 40+개의 다른 언어를 지원합니다！

한 번의 클릭으로 즉시 Kutools for Outlook 의 잠금을 해제하세요。 더 이상 기다리지 마시고 지금 다운로드하여 업무 효율을 높이세요！

Kutools for Outlook 기능 목록 지금 다운로드 구매하러 가기

🚀 한 번의 클릭으로 다운로드 — 모든 Office 애드인 받기

강력히 권장： Kutools for Office (5-in-1)

한 번의 클릭으로다섯 개의 설치 프로그램을동시에 다운로드하세요 —Kutools for Excel, Outlook, Word, PowerPoint및Office Tab Pro.지금 다운로드하세요！

✅한 번의 클릭으로 편리하게： 다섯 개의 설치 패키지를 한 번에 다운로드하세요。
🚀모든 Office 작업에 대비 완료： 필요한 시점에 필요한 애드인을 설치하세요。
🧰포함됨: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

스위트 정보 ⬇ 스위트 다운로드 💳 스위트 구매