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

Outlook 솔루션 2025 년 9 월 29 일

많은 사용자들이 Outlook을 실행할 때 모든 폴더가 자동으로 확장되기를 바랍니다. 하지만 Outlook은 기본적으로 이 기능을 지원하지 않습니다. 따라서 이 기능을 구현하려면 VBA 코드를 사용해야 합니다. 이 글에서는 VBA 코드를 사용하는 간단한 방법을 안내해 드리겠습니다.

Outlook의 기본 폴더 아래에 수많은 하위 폴더를 만들었을 수 있습니다. 이렇게 많은 폴더 중에서 언제든지 빠르게 접근하려면 모든 폴더를 항상 확장된 상태로 유지하고 싶을 것입니다. 첫 번째 단계는 Outlook이 시작될 때 폴더를 자동으로 확장하도록 설정하는 것입니다. 물론 Outlook에는 이러한 기본 기능이 없습니다. 따라서 매크로를 사용해야 합니다. 이제 VBA를 사용하여 이 작업을 수행하는 방법을 알려드리겠습니다. VBA를 적용하는 방법에 대한 자세한 내용은 다른 문서("VBA 사용법")를 참조하십시오.Outlook에서 VBA 코드를 실행하는 방법".

Outlook 시작 시 모든 폴더 자동 확장

먼저 Outlook에서 "Alt + F11"을 눌러 VBA 편집기에 액세스합니다.
그런 다음 새 창에서 코드를 "ThisOutlookSession"프로젝트에 넣습니다.

'Auto expand all folders on startup
Private Sub Application_Startup()
    Call ExpandAllFolders
End Sub

Private Sub ExpandAllFolders()
    Dim objCurrentFolder As Outlook.Folder
    Dim objStore As Outlook.Store
    Dim objFileFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder
   
    Set objCurrentFolder = Application.ActiveExplorer.CurrentFolder
 
    'Process all email accounts in your Outlook
    For Each objStore In Outlook.Application.Session.Stores
        Set objFileFolders = objStore.GetRootFolder.Folders
 
        For Each objFolder In objFileFolders
            Call LoopFolders(objFolder)
        Next
 
        DoEvents
        Set Application.ActiveExplorer.CurrentFolder = objCurrentFolder
    Next
End Sub

Sub LoopFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder
 
    Set Application.ActiveExplorer.CurrentFolder = objCurFolder
    DoEvents
 
    'Process all subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call LoopFolders(objSubfolder)
       Next
    End If
End Sub

그 후 VBA 편집기를 닫습니다.
그런 다음 Outlook 응용 프로그램을 제대로 종료하십시오.
나중에 Outlook을 실행하세요. 그러면 매크로가 자동으로 실행됩니다.
Outlook이 시작되면 아래 그림과 같이 모든 폴더가 확장된 것을 확인할 수 있습니다.

모든 악성 매크로를 차단

의심스러운 파일이 첨부되었거나 알 수없는 링크가 포함 된 이메일을받은 적이 있습니까? 일반적으로 이러한 이메일에 직면 할 때는 경계를 높여야합니다. 바이러스를 운반 할 수 있다는 점에서 쉽게 신뢰해서는 안됩니다. 첨부 파일을 다운로드하거나 링크를 열면 Outlook뿐만 아니라 컴퓨터도 공격을받을 수 있습니다. 그 때, 당신은 수리 Outlook 파일. 업데이트 된 Outlook 백업이 없거나 다음과 같은 강력한 복구 도구를 사용하지 않는 한 상당히 복잡 할 수 있습니다. DataNumen Outlook Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. SQL Server 부패 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM