Как найти папку (полный путь к файлу) по её имени в Outlook?

Выполните следующие шаги, чтобы искать папки по имени папки с помощью VBA в Outlook.

1. Нажмите клавиши «Alt» + «F11» одновременно, чтобы открыть окно Microsoft Visual Basic для приложений.

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 для Outlook», воспользуйтесь его функцией «Перейти к», чтобы быстро найти все папки по заданному имени и легко открыть любую из найденных.

1. Выберите «KUTOOLS PLUS» > «Перейти к», чтобы активировать эту функцию.

2. В диалоговом окне «Перейти к» введите имя нужной папки в поле «Поиск», выберите её в результатах поиска и нажмите «ОК».

Теперь указанная папка с заданным именем найдена и немедленно открыта.