Outlook 에서 폴더 이름별로 폴더(전체 파일 경로)를 찾는 방법은 무엇인가요？

Outlook 에서 VBA 를 사용하여 폴더 이름별로 폴더를 검색하려면 아래 단계를 따르세요。

1. 「Alt」 + “F11" 키를 동시에 눌러 「Microsoft Visual Basic for Applications」 창을 엽니다。

2. 「삽입(Insert)」 > 「모듈(Module)」을 클릭한 후， 아래의 VBA 코드를 새 모듈 창에 붙여넣습니다。

VBA: Outlook 에서 폴더 이름으로(로) 폴더 검색 및 폴더 열기

Private m_Folder As MAPIFolder
Private m_Find As String
Private m_Wildcard As Boolean

Private Const SpeedUp As Boolean = True
Private Const StopAtFirstMatch As Boolean = True

Public Sub FindFolder()
Dim sName As String
Dim oFolders As Folders

  Set m_Folder = Nothing
m_Find = ""
m_Wildcard = False

  sName = InputBox("Find:", "Search folder")
If Len(Trim(sName)) = 0 Then Exit Sub
m_Find = sName

  m_Find = LCase(m_Find)
m_Find = Replace(m_Find, "%", "*")
m_Wildcard = (InStr(m_Find, "*"))

  Set oFolders = Application.Session.Folders
LoopFolders oFolders

  If Not m_Folder Is Nothing Then
If MsgBox("Activate folder: " & vbCrLf & m_Folder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
Set Application.ActiveExplorer.CurrentFolder = m_Folder
End If
Else
MsgBox "Not found", vbInformation
End If
End Sub

Private Sub LoopFolders(Folders As Outlook.Folders)
Dim oFolder As MAPIFolder
Dim bFound As Boolean

If SpeedUp = False Then DoEvents

  For Each oFolder In Folders
If m_Wildcard Then
bFound = (LCase(oFolder.Name) Like m_Find)
Else
bFound = (LCase(oFolder.Name) = m_Find)
End If

    If bFound Then
If StopAtFirstMatch = False Then
If MsgBox("Found: " & vbCrLf & oFolder.FolderPath & vbCrLf & vbCrLf & "Continue?", vbQuestion Or vbYesNo) = vbYes Then
bFound = False
End If
End If
End If
If bFound Then
Set m_Folder = oFolder
Exit For
Else
LoopFolders oFolder.Folders
If Not m_Folder Is Nothing Then Exit For
End If
Next
End Sub

3. "F5" 키를 누르거나 「실행(Run)」 버튼을 클릭하여 이 VBA 를 실행합니다。

4. 나타나는 「폴더 검색(Search folder)」 대화 상자에 검색할 지정된 폴더 이름를 입력하고 「확인(OK)」 버튼을 클릭하세요。

참고: 이 VBA 는 별표(*) 와일드카드를 지원합니다. 예를 들어, tes*를 입력하면 이름이 tes 로 시작하는 모든 폴더를 찾을 수 있습니다。

5. 이제 찾은 폴더의 파일 경로를 표시하는 대화 상자가 나타납니다。 찾은 폴더를 열려면 「예(Yes)」 버튼을 클릭하세요。

이제 아래 스크린샷과 같이 찾은 폴더가 탐색에서 열립니다：

참고: 지정된 이름을 가진 폴더가 둘 이상 있는 경우, 이 VBA 는 하나의 폴더만 찾아 열 수 있습니다。

「Kutools for Outlook」가 설치되어 있다면， 해당 「이동(Go To)」 기능을 사용하여 특정 폴더 이름별로 모든 폴더를 신속하게 찾고， 찾은 폴더 중 원하는 것을 쉽게 열 수도 있습니다。

1. 「Kutools 플러스」 > 「이동(Go To)」를 클릭하여 이 기능을 활성화합니다。

2. 「이동(Go To)」 대화 상자에서 「검색(Search)」 상자에 지정된 폴더 이름를 입력하고， 검색 결과에서 폴더 선택을 선택한 후 「확인(OK)」 버튼을 클릭하세요。

이제 특정 폴더 이름를 가진 지정된 폴더가 즉시 찾아져 열립니다。