使用出色的工具按文件夹名称快速搜索和打开文件夹

一般来说，我们可以用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支持星号通配符。 例如，您可以输入 特斯* 找出所有名称以开头的文件夹 TES.

5。 现在出现一个对话框，显示找到的文件夹的文件夹路径。 如果您需要打开找到的文件夹，请单击 是 按钮。

现在，找到的文件夹正在“导航”窗格中打开，如下图所示：

备注：如果有多个使用指定名称命名的文件夹，则此VBA只能找到并打开一个文件夹。

如果您安装了 Outlook 的 Kutools，您可以应用其“转到”功能来快速查找某个文件夹名称的所有文件夹，并轻松打开任何找到的文件夹。

1。 点击 Kutools 加 > 转到 启用此功能。

2。 在“转到”对话框中，请在 搜索 框，在搜索结果中选择一个文件夹，然后单击 Ok 按钮。

现在，找到具有特定文件夹名称的指定文件夹并立即打开。