How to find folder by name in Outlook?
For example, you have created many email folders in Outlook, when a specified personal folder need to be opened, you have to expand multiple folders until that specified folder shows up. It is troublesome to expand multiple folders one by one just for opening a specified personal folder. Actually, if you remember the folder name, all things will become easily. In this tutorial, we will provide you with a method of finding folder by its name in Outlook instead of expanding folders one by one to find the folder.
Find folder by name in Outlook with VBA code
Search folder by name across accounts in Outlook by Kutools for Outlook
Find folder by name in Outlook with VBA code
With following VBA code, you can easily find a specified folder by its name.
Note: You need to remember the folder name in order to use this VBA code.
1. Press the Alt + F11 keys on the keyboard to open the Microsoft Visual Basic for Applications window.
2. Then double click the Project1 > Microsoft Outlook Object > ThisOutlookSession to open the Project1 – ThisOutlookSession window. See screenshot:
3. Copy and paste the following VBA code into the Project1 – ThisOutlookSession window.
VBA: find folder by name
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. Then press F5 key on the keyboard to run the VBA code.
5. In the Macros dialog box, click the Run button.
6. In the popping up Search Folder dialog box, please type the folder name in the text box, then click the OK button. See screenshot:
7. Then a Microsoft Outlook dialog box pops up, it shows the path of your desired folder, and then click the Yes button.
8. Then the specified email folder will be opened immediately.
Note: This VBA code can be applied to Outlook 2007, 2010 and 2013.
Search folder by name across accounts in Outlook by Kutools for Outlook
If you are not good at VBA, you can try Kutools for Outlook's Go To utility, which can find and search folder with name or specific character, then directly go to the folder
Free install Kutools for Outlook, and then do as below steps:
1. Click Kutools Plus > Folder > Go To.
2. In the Go To dialog, type the folder name or specific characters in the search bar, then the relative folders are list.
3. Double click at the folder name you want to go to and open, then the folder is open.
Demo
Best Office Productivity Tools
Breaking News: Kutools for Outlook Launches Free Version!
Experience the all-new Kutools for Outlook with 100+ incredible features! Click to download now!
📧 Email Automation: Auto Reply (Available for POP and IMAP) / Schedule Send Emails / Auto CC/BCC by Rules When Sending Email / Auto Forward (Advanced Rules) / Auto Add Greeting / Automatically Split Multi-Recipient Emails into Individual Messages ...
📨 Email Management: Recall Emails / Block Scam Emails by Subjects and Others / Delete Duplicate Emails / Advanced Search / Consolidate Folders ...
📁 Attachments Pro: Batch Save / Batch Detach / Batch Compress / Auto Save / Auto Detach / Auto Compress ...
🌟 Interface Magic: 😊More Pretty and Cool Emojis / Remind you when important emails come / Minimize Outlook Instead of Closing ...
👍 One-click Wonders: Reply All with Attachments / Anti-Phishing Emails / 🕘Show Sender's Time Zone ...
👩🏼🤝👩🏻 Contacts & Calendar: Batch Add Contacts From Selected Emails / Split a Contact Group to Individual Groups / Remove Birthday Reminders ...
Use Kutools in your preferred language – supports English, Spanish, German, French, Chinese, and 40+ others!
🚀 One-Click Download — Get All Office Add-ins
Strongly Recommended: Kutools for Office (5-in-1)
One click to download five installers at once — Kutools for Excel, Outlook, Word, PowerPoint and Office Tab Pro. Click to download now!
- ✅ One-click convenience: Download all five setup packages in a single action.
- 🚀 Ready for any Office task: Install the add-ins you need, when you need them.
- 🧰 Included: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint