使用出色的工具按文件夾名稱快速搜索和打開文件夾

通常，我們可以使用VBA代碼按文件夾名稱搜索文件夾。 大多數VBA代碼可以搜索當前郵箱中的文件夾，並僅打開找到的第一個文件夾。 現在有了Kutools for Outlook的“轉到”功能，您可以輕鬆地按文件夾名稱輕鬆查找文件夾，並根據需要打開找到的任何文件夾。

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

1。 按 其他 + 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。 在彈出的搜索文件夾對話框中，輸入您要搜索的指定文件夾名稱，然後單擊 OK 按鈕。 看截圖：

備註：此VBA支持星號通配符。 例如，您可以輸入 特斯* 找出所有名稱以開頭的文件夾 工商業污水附加費.

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

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

備註：如果有多個使用指定名稱命名的文件夾，則此VBA只能找到並打開一個文件夾。

如果您安裝了Kutools for Outlook，則可以使用其轉到功能快速按特定的文件夾名稱查找所有文件夾，並輕鬆打開找到的任何文件夾。

1。 點擊 Kutools 加 > 轉到 啟用此功能。

2。 在“轉到”對話框中，請在 檢索 框，在搜索結果中選擇一個文件夾，然後單擊 Ok 按鈕。

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