title: Outlook Subfolder Expansion
body: <p>I've code to expand folders in Outlook. It works for the first level folders, but won't expand the subfolders (in this case the xx Progressions folder).</p>
  <p>The code doesn't bug out: the subfolder simply does not expand.</p>
  <pre><code>Private Sub ExpandFolders()
  
  Dim objCurrentFolder As Outlook.Folder
  Dim objStore As Outlook.Store
  Dim objFileFolders As Outlook.Folders
  Dim objFolder As Outlook.Folder
  Dim objView As Outlook.View
  
  'Expand xx Notifications
  Set objStore = Outlook.Application.Session.Stores(&quot;xxNotification&quot;)
  Set objFileFolders = objStore.GetRootFolder.Folders
  Set Application.ActiveExplorer.CurrentFolder = objFileFolders(&quot;Inbox&quot;) 'Works fine
  
  'Expand xx Delivery Support
  Set objStore = Outlook.Application.Session.Stores(&quot;xxDeliverySupport&quot;)
  Set objFileFolders = objStore.GetRootFolder.Folders
  Set Application.ActiveExplorer.CurrentFolder = objFileFolders(&quot;Inbox&quot;)
  Set Application.ActiveExplorer.CurrentFolder = objFileFolders(&quot;Inbox&quot;).Folders(&quot;xx Progressions&quot;) 'Does not expand
  
  'User inbox
  Set objStore = Outlook.Application.Session.Stores(&quot;xx.xx@xx.com&quot;)
  Set objFileFolders = objStore.GetRootFolder.Folders
  Set Application.ActiveExplorer.CurrentFolder = objFileFolders(&quot;Inbox&quot;) 'Works fine
  
  End Sub
  </code></pre>