Outlook 에서 폴더 이름으로 폴더를 찾는 방법은 무엇인가요？

예를 들어 Outlook 에 많은 이메일 폴더를 생성해 두었을 때 특정 개인 폴더를 열어야 한다면 여러 폴더를 차례로 확장하여 해당 폴더가 나타날 때까지 찾아야 합니다. 단지 특정 개인 폴더 하나를 열기 위해 여러 폴더를 하나씩 확장하는 것은 번거로운 일입니다. 사실 폴더 이름만 기억하고 있다면 모든 일이 훨씬 쉬워집니다. 이 튜토리얼에서는 폴더를 하나하나 확장하지 않고도 Outlook 에서 폴더 이름으로 해당 폴더를 찾을 수 있는 방법을 안내해 드리겠습니다。

VBA 코드를 사용하여 Outlook 에서 폴더 이름으로 폴더 찾기

Kutools for Outlook 을(를) 사용하여 Outlook 의 여러 계정에서 폴더 이름으로 폴더 검색하기

---

VBA 코드를 사용하여 Outlook 에서 폴더 이름으로 폴더 찾기

다음 VBA 코드를 사용하면 폴더 이름으로 원하는 폴더를 쉽게 찾을 수 있습니다。

참고： 이 VBA 코드를 사용하려면 폴더 이름를 기억해야 합니다。

1. 키보드에서Alt+F11키를 눌러Microsoft Visual Basic for Applications창을 엽니다。

2. 그런 다음Project1>Microsoft Outlook Object>ThisOutlookSession을(를) 두 번 클릭하여Project1 – ThisOutlookSession창을 엽니다。 스크린샷 참조：

3. 다음 VBA 코드를 복사하여 Project1 – ThisOutlookSession 창에 붙여넣습니다。

VBA： 폴더 이름으로 폴더 찾기

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. 그런 다음 키보드에서F5키를 눌러 VBA 코드를 실행합니다。

5. 매크로대화 상자에서실행버튼을 클릭합니다。

6. 나타나는폴더 검색대화 상자에서 텍스트 상자에 폴더 이름를 입력한 후확인버튼을 클릭합니다。 스크린샷 참조：

7. 그러면Microsoft Outlook대화 상자가 나타나며 원하는 폴더의 경로를 표시합니다。 이후예버튼을 클릭합니다。

8. 그러면 지정한 이메일 폴더가 즉시 열립니다。

참고: 이 VBA 코드는 Outlook 2007, 2010 및 2013 에 적용할 수 있습니다。

---

Kutools for Outlook 을(를) 사용하여 Outlook 의 여러 계정에서 폴더 이름으로 폴더 검색하기

VBA 에 익숙하지 않다면Kutools for Outlook의이동유틸리티를 사용해 보세요。 이 기능은 이름이나 특정 문자로 폴더를 찾아 직접 해당 폴더로 이동할 수 있습니다。

Kutools for Outlook 을(를) 무료로 설치한 후 아래 단계를 따르세요：Kutools for Outlook

1. Kutools 플러스>폴더>이동를 클릭합니다。

2. 이동대화 상자에서 검색창에 폴더 이름 또는 특정 문자를 입력하면 관련 폴더 목록이 표시됩니다。

3. 이동하여 열고자 하는 폴더 이름을(를) 두 번 클릭하면 해당 폴더가 열립니다。

  데모