How to display a “Browse for Folder“ dialog for choosing a folder in Outlook?
For a large number of folders in your outlook, it will be convenient for you to choose a specified folder from a “Browse for Folder” dialog box instead of browsing the folder structure for finding it. This article will show you method of displaying a “Browse for Folder” dialog for choosing a folder in Outlook.
- Reuse Anything: Add the most used or complex formulas, charts and anything else to your favorites, and quickly reuse them in the future.
- More than 20 text features: Extract Number from Text String; Extract or Remove Part of Texts; Convert Numbers and Currencies to English Words.
- Merge Tools: Multiple Workbooks and Sheets into One; Merge Multiple Cells/Rows/Columns Without Losing Data; Merge Duplicate Rows and Sum.
- Split Tools: Split Data into Multiple Sheets Based on Value; One Workbook to Multiple Excel, PDF or CSV Files; One Column to Multiple Columns.
- Paste Skipping Hidden/Filtered Rows; Count And Sum by Background Color; Send Personalized Emails to Multiple Recipients in Bulk.
- Super Filter: Create advanced filter schemes and apply to any sheets; Sort by week, day, frequency and more; Filter by bold, formulas, comment...
- More than 300 powerful features; Works with Office 2007-2019 and 365; Supports all languages; Easy deploying in your enterprise or organization.
Please do as follows to display a “Browse for Folder” dialog for choosing a folder with VBA code.
1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.
2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy below VBA code into the Module window.
VBA code: Display a “Browse for Folder” dialog for choosing a folder
Sub PickFolder() 'Update by Extendoffice 20180504 Dim xNameSpace As NameSpace Dim xPickFolder As Folder Dim xExplorer As Explorer On Error Resume Next Set xNameSpace = Outlook.Application.Session Set xPickFolder = xNameSpace.PickFolder If TypeName(xPickFolder) = "Nothing" Then Exit Sub Set xExplorer = Outlook.Application.ActiveExplorer xExplorer.Close xPickFolder.Display Outlook.Application.ActiveExplorer.WindowState = olMaximized Set xPickFolder = Nothing Set xNameSpace = Nothing End Sub
3. Press the Alt + Q keys to exit the Microsoft Visual Basic for Applications window.
4. Click the Customize Quick Access Toolbar button and then click More Commands from the drop-down menu. See screenshot:
5. In the Outlook Options dialog box, you need to:
5.1 Select Macros from the Choose commands from drop-down list;
5.2 Select the macro name Project1.FolderPick from the commands box;
5.3 Click the Add button;
5.4 Keep selecting the FolderPick in the right Customize Quick Access Toolbar box, and then click the Modify button;
5.5 Select a modify button for the macro and then click the OK button;
5.6 Click the OK button to close the Outlook Options dialog box. See screenshot:
6. Then you can see a folder button showing on the Quick Access Toolbar. Click on the button to display the “Select Folder” dialog, select a folder and click the OK button. See screenshot:
Then the selected folder will be opened in Outlook immediately.