Author StringCat.com Sub EnumerateFoldersInStores() ‘ store is a pst file Dim App As New Outlook.Application Dim Stores As Outlook.Stores Dim Store As Outlook.Store Dim Root As Outlook.Folder On Error Resume Next ‘ all pst files shown by Outlook session Set Stores = App.Session.Stores ‘loop over folders in each pst file For Each Store In Stores…