Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

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.

Display a “Browse for Folder” dialog for choosing a folder with VBA

Excel Productivity Tools

Office Tab: Bring powerful tabs to Office (include Excel), just like Chrome, Safari, Firefox and Internet Explorer. Save you half the time, and reduce thousands of mouse clicks for you. 30-day Unlimited Free Trial

Kutools for Excel: Save 70% of your time and solve 80% Excel problems for you. 300+ advanced features designed for 1500+ work scenario, make Excel much easy and increase productivity immediately.60-day Unlimited Free Trial


Display a “Browse for Folder” dialog for choosing a folder with VBA<>

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.


Related articles:


Recommended Productivity Tools

Ribbon of Excel (with Kutools for Excel installed)

300+ Advanced Features Increase Your Productivity by 70%, and Help You To Stand Out From Crowd!

Would you like to complete your daily work quickly and perfectly? Kutools For Excel brings 300+ cool and powerful advanced features (Combine workbooks, sum by color, split cell contents, convert date, and so on...) for 1500+ work scenarios, helps you solve 80% Excel problems.

  •  Deal with all complicated tasks in seconds, help to enhance your work ability, get success from the fierce competition, and never worry about being fired.
  •  Save a lot of work time, leave much time for you to love and care the family and enjoy a comfortable life now.
  •  Reduce thousands of keyboard and mouse clicks every day, relieve your tired eyes and hands, and give you a healthy body.
  •  Become an Excel expert in 3 minutes, and get admiring glance from your colleagues or friends.
  •  No longer need to remember any painful formulas and VBA codes, have a relaxing and pleasant mind, give you a thrill you've never had before.
  •  Spend only $39, but worth than $4000 training of others. Being used by 110,000 elites and 300+ well-known companies.
  •  60-day unlimited free trial. 60-day money back guarantee. Free upgrade and support for 2 years. Buy once, use forever.
  •  Change the way you work now, and give you a better life immediately!

Office Tab Brings Efficient And Handy Tabs to Office (include Excel), Just Like Chrome, Firefox, And New IE

  • Increases your productivity by 50% when viewing and editing multiple documents.
  • Reduce hundreds of mouse clicks for you every day, say goodbye to mouse hand.
  • Open and create documents in new tabs of same window, rather than in new windows.
  • Help you work faster and easily stand out from the crowd! One second to switch between dozens of open documents!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.