Как найти папку по названию в Outlook?

Например, вы создали множество папок электронной почты в Outlook. Когда требуется открыть определённую личную папку, приходится последовательно разворачивать несколько папок, пока нужная не появится. Это утомительно — разворачивать папки одну за другой только ради открытия конкретной личной папки. На самом деле, если вы помните Имя папки, всё станет гораздо проще. В этом руководстве мы покажем вам способ поиска папки по её имени в Outlook, вместо того чтобы искать её, разворачивая папки поочерёдно.

Поиск папки по имени в Outlook с помощью кода VBA

Поиск папки по имени во всех учётных записях в Outlook с помощью Kutools для Outlook

---

Поиск папки по имени в Outlook с помощью кода VBA

С помощью приведённого ниже кода VBA вы легко найдёте нужную папку по её имени.

Примечание: Чтобы использовать этот код VBA, запомните имя папки.

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

2. Затем дважды щёлкните элемент Project1 > Объект Microsoft Outlook > ThisOutlookSession, чтобы открыть окно Project1 – ThisOutlookSession. См. снимок экрана:

3. Скопируйте и вставьте приведённый ниже код VBA в окно Project1 – ThisOutlookSession.

VBA: поиск папки по имени

Sub FindFolderByName()
    Dim Name As String
    Dim FoundFolder As Folder
    
    Name = InputBox("Find Name:", "Search Folder")
    If Len(Trim$(Name)) = 0 Then Exit Sub
    
    Set FoundFouder = FindInFolders(Application.Session.Folders, Name)
    
  If Not FoundFouder Is Nothing Then
    If MsgBox("Activate Folder: " & vbCrLf & FoundFouder.FolderPath, vbQuestion Or vbYesNo) = vbYes Then
      Set Application.ActiveExplorer.CurrentFolder = FoundFouder
    End If
  Else
    MsgBox "Not Found", vbInformation
  End If
End Sub
Function FindInFolders(TheFolders As Outlook.Folders, Name As String)
  Dim SubFolder As Outlook.MAPIFolder
  
  On Error Resume Next
  
  Set FindInFolders = Nothing
  
  For Each SubFolder In TheFolders
    If LCase(SubFolder.Name) Like LCase(Name) Then
      Set FindInFolders = SubFolder
      Exit For
    Else
      Set FindInFolders = FindInFolders(SubFolder.Folders, Name)
      If Not FindInFolders Is Nothing Then Exit For
    End If
  Next
End Function 

4. Затем нажмите клавишу F5 на клавиатуре, чтобы запустить код VBA.

5. В диалоговом окне Макросы нажмите кнопку Выполнить.

6. В появившемся диалоговом окне Поиск папки введите имя папки в текстовое поле и нажмите кнопку ОК. См. снимок экрана:

7. Затем появится диалоговое окно Microsoft Outlook, в котором отображается путь к нужной папке. Нажмите кнопку Да.

8. После этого указанная папка электронной почты откроется немедленно.

Примечание: Этот код VBA подходит для Outlook 2007, 2010 и 2013.

---

Поиск папки по имени во всех учётных записях в Outlook с помощью Kutools для Outlook

Если вы не знакомы с VBA, попробуйте функцию «Перейти к» в утилите Kutools для Outlook, которая позволяет находить папку по имени или отдельным символам и мгновенно переходить в неё.

Установите бесплатноKutools для Outlook и выполните следующие действия:

1. Нажмите KUTOOLS PLUS > Папка > Перейти к.

2. В диалоговом окне Перейти к введите имя папки или определённые символы в строку поиска — и соответствующие папки тут же отобразятся.

3. Дважды щёлкните имя папки, которую хотите открыть, — и она тут же откроется.

  Демонстрация