Перейти к основному содержанию

Как найти папку по имени в Outlook?

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

Найти папку по имени в Outlook с кодом VBA

Папка поиска по имени в учетных записях в Outlook от Kutools for Outlookхорошая идея3


стрелка синий правый пузырь Найти папку по имени в Outlook с кодом VBA

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

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

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

2. Затем дважды щелкните значок Project1 > Объект Microsoft Outlook > Эта сессия Outlook для открытия 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. в Макрос диалогового окна, нажмите Run .

6. Во всплывающем Папка поиска диалоговом окне введите имя папки в текстовом поле, затем щелкните OK кнопка. Смотрите скриншот:

7. Затем Microsoft Перспективы появится диалоговое окно, в котором отображается путь к желаемой папке, а затем щелкните значок Да .

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

Внимание: Этот код VBA можно применить к Outlook 2007, 2010 и 2013.


стрелка синий правый пузырь Папка поиска по имени в учетных записях в Outlook от Kutools for Outlook

Если вы не разбираетесь в VBA, вы можете попробовать Kutools for Outlook's Перейти к утилита, которая может найти и выполнить поиск в папке с именем или конкретным символом, а затем напрямую перейти в папку

Kutools for Outlook , Тур включает: мощные функции и инструменты для Microsoft Outlook 2016, 2013, 2010 и Office 365.

Бесплатная установка Kutools for Outlook, а затем выполните следующие действия:

1. Нажмите Кутулс Плюс > Перейти к.
doc найти папку по имени 5

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

3. Дважды щелкните имя папки, в которую вы хотите перейти, и откройте ее. Папка будет открыта.
doc найти папку по имени 7


Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

🤖 Почтовый помощник с искусственным интеллектом: Мгновенные профессиональные электронные письма с помощью магии искусственного интеллекта: гениальные ответы одним щелчком мыши, идеальный тон, многоязычное владение. Преобразуйте электронную почту без особых усилий! ...

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения ProПакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

 

 

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, 6 years later but have same issues as raised by the others. I once had this code but sadly lost it. Any ideas (i will try AI)
This comment was minimized by the moderator on the site
It looks great but I'm looking more folder with similar name....
This comment was minimized by the moderator on the site
I am currently working with Outlook 2013, and while this tool is wonderfully helpful, I'm in the same boat as Matt and Richard. I would like to be able to somehow go through multiple folders with the same name. I would also like to be able to do this: if I have multiple folders with dates, 2012,2013,2014 for example, I would like to be able to put in 20* or 20?? and then be prompted to view any of the aforementioned folders, instead of just defaulting to the first one it finds.
This comment was minimized by the moderator on the site
The line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a compile error message - User-defined type not defined
This comment was minimized by the moderator on the site
the line "Function FindInFolders(TheFolders As Outlook.Folders, Name As String)" is throwing a Compile error message: User-defined type not defined
This comment was minimized by the moderator on the site
Just like Matt wrote, I was also looking for this. The way the code operates is that it will open the first folder it finds with the name to search for. Is it possible to adjust the code so it will find multiple instances?
This comment was minimized by the moderator on the site
Is there a way to add folder iteration to the above code. Say the user has multiple folders named Employee, is it possible for it to go through a loop to find all instances and allow user to select appropriate folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations