How to quickly go to and open the folder of searching result in Outlook?
In Outlook, you can search emails based on the specific text with the Searching function. But, if you are searching through all outlook items, you cannot quickly find out the folder of the searching result. In this case, here I have some tricks which can help you quickly go to and open the folder of the searching result.
Go to and open the folder of searching result with VBA
Go to and open the folder of searching result with Right-Click
Go to and open the folder of searching result with VBA
In Outlook, there is no built-in function can handle this job, except VBA code.
Before using the VBA code, you need to display the folder name in the searched results.
1. Click View > Add Columns.
2. In the Show Columns dialog and in Select available columns from drop-down list, select All Mail fields, then choose In Folder in the Available columns list.
3. Click Add to add In Folders to Show these columns in this order list, then click Move UP button to move In Folder to the top.
4. Click OK to close dialog. Now while you are searching emails, the folder name will be displayed in searching results.
5. Now press Alt + F11 keys to enable Microsoft Visual Basic for Applications window, click Insert > Module to create a new Module.
6. Copy and paste below code into the Module.
VBA: Go to folder by a name
Sub FindFolderByName()
'UpdatebyExtendoffice20181105
Dim xFldName As String
Dim xFoundFolder As Folder
Dim xYesNo As Integer
On Error Resume Next
xFldName = InputBox("Folder Name:", "Kutools for Outlook")
If Len(Trim(xFldName)) = 0 Then Exit Sub
Set xFoundFolder = ProcessFolders(Application.Session.Folders, xFldName)
If xFoundFolder Is Nothing Then
MsgBox "Not Found", vbInformation, "Kutools for Outlook"
Exit Sub
End If
xYesNo = MsgBox("Activate Folder: " & vbCrLf & xFoundFolder.FolderPath, vbQuestion Or vbYesNo, "Kutools for Outlook")
If xYesNo = vbNo Then Exit Sub
Set Application.ActiveExplorer.CurrentFolder = xFoundFolder
End Sub
Function ProcessFolders(Flds As Outlook.Folders, Name As String)
Dim xSubFolder As Outlook.MAPIFolder
On Error Resume Next
Set ProcessFolders = Nothing
For Each xSubFolder In Flds
If UCase(xSubFolder.Name) = UCase(Name) Then
Set ProcessFolders = xSubFolder
Exit For
Else
Set ProcessFolders = ProcessFolders(xSubFolder.Folders, Name)
If Not ProcessFolders Is Nothing Then Exit For
End If
Next
End Function
7. Press F5 key to enable the code, now enter the folder name you want to go to into the dialog.
8. Click OK, a dialog pops out to remind you the location of the folder, click Yes to directly go to the folder, or click No to cancel.
Go to and open the folder of searching result with Right-Click
If you have Kutools for Outlook, there will be an Open folder utility embed in the right-click menu which can quickly go to the folder of the selected email.
Kutools for Outlook , Includes 100+ powerful features and tools for Microsoft Outlook 2016, 2013, 2010 and Office 365. |
||
Free install Kutools for Outlook, and then do as below steps:
After searching, right click at the result you want to open its folder, select Open folder from the context menu.
Best Office Productivity Tools
Kutools for Outlook - Over 100 Powerful Features to Supercharge Your Outlook
🤖 AI Mail Assistant: Instant pro emails with AI magic--one-click to genius replies, perfect tone, multilingual mastery. Transform emailing effortlessly! ...
📧 Email Automation: Out of Office (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: Easily 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 / Boost Your Outlook Productivity with Tabbed Views / Minimize Outlook Instead of Closing ...
👍 One-click Wonders: Reply All with Incoming 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 ...
Over 100 Features Await Your Exploration! Click Here to Discover More.