VBA to Browse Outlook Folder
VBA to Browse Outlook Folder
Outlook is most commonly used emailing application used in the world. Many people spend their entire day on Outlook applications to read and respond to emails. To automate certain rule-based tasks in Outlook, we can take the help of VBA. Below is one of the commonly used VBA codes to browse an Outlook folder. The code returns two values:
- Outlook Folder Path
- EntryID
Outlook folder path can be used to display the selected folder path to the user and EntryID can be used to contact Outlook and read emails from the folder.
You can also read my post for reading Outlook emails in Excel
VBA to Browse Outlook Folder CODE :-
Public Sub PickOutlookFolder()
'Microsoft Outlook XX.X Object Library is required to run this code
'Variable declaration
Dim objNS As Namespace
Dim objFolder As Folder
Dim strFolderPath As String
Dim strEntryID As String
'Set Outlook Object
Set objNS = Outlook.GetNamespace("MAPI")
Set objFolder = objNS.PickFolder
If TypeName(objFolder) <> "Nothing" Then
strFolderPath = objFolder.FolderPath
strEntryID = objFolder.EntryID
End If
'Close the objects
Set objFolder = Nothing
Set objNS = Nothing
'Show the selected folder details on Excel sheet
Sheet1.Range("B6").Value = strFolderPath
Sheet1.Range("C6").Value = strEntryID
End SubIt is worth to mention that you need to add Outlook reference (Microsoft Outlook XX.X Object Library) in Excel VBA from Menu Bar (Tools>References…). Below are the steps to add Outlook reference in Excel VBA:
1. From the Menu Bar, click on Tools > References…
2. Select ‘Microsoft Outlook XX.X Object Library’ and click on ‘OK’ button
To use this Code in VBA to Browse Outlook Folder, follow below steps
1. Open an Excel file
2. Press Alt+F11
3. Insert a Module (Insert>Module) from menu bar
4. Paste the code in the module
5. Now add a shape in Excel sheet
6. Give a name to the shape like ‘Browse Outlook Folder’
7. Right click on the shape and select ‘Assign Macro…’
8. Select PickOutlookFolder from the list and click on ‘Ok’ button
9. Done
