如何在 Outlook 中通过文件夹名称查找文件夹（完整文件夹路径）？

請按照以下步驟在 Outlook 中使用 VBA 按文件夾名稱搜索文件夾。

1. 同時按下 “Alt” + “F11” 鍵以打開 “Microsoft Visual Basic for Applications” 窗口。

2. 點擊 “插入” > “模塊”，然後將以下 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” 鍵或點擊 “運行” 按鈕來運行此 VBA。

4. 在彈出的 “搜索文件夾” 對話框中，請輸入要搜索的指定文件夾名稱，然後點擊 “確定” 按鈕。

注意：此 VBA 支持星號通配符。例如，您可以輸入 tes* 來查找所有名稱以 tes 開頭的文件夾。

5. 現在會彈出一個對話框，顯示找到的文件夾的文件夾路徑。如果您需要打開找到的文件夾，請點擊 “是” 按鈕。

如下截圖所示，現在找到的文件夾已在導航窗格中打開：

注意：如果有多個文件夾使用指定的名稱，此 VBA 只能查找並打開其中一個文件夾。

如果您已安裝 “Kutools for Outlook”，則可以應用其 “Go To” 功能快速根據某個文件夾名稱查找所有文件夾，並且還可以輕鬆打開任何找到的文件夾。

1. 點擊 “Kutools Plus” > “Go To” 啟用此功能。

2. 在 “Go To” 對話框中，請在 “搜索” 框中輸入指定的文件夾名稱，選擇搜索結果中的某個文件夾，然後點擊 “確定” 按鈕。

現在，具有該特定文件夾名稱的指定文件夾已被找到並立即打開。