Building up on this one, here, how can one iterate through the subfolders of a subfolder of the inbox folder of a shared mailbox?
I'm failing to find a solution so far.
Hopefully we'll find an answer.
See Question&Answers more detail:osDefining:
Option Explicit
Sub inbox_working()
Dim xlApp As Excel.Application
Dim xlWB As Excel.Workbook
Dim Sht As Excel.Worksheet
Dim olApp As Outlook.Application
Set olApp = New Outlook.Application
Dim olNs As Outlook.Namespace
Set olNs = olApp.GetNamespace("MAPI")
Dim olRecip As Outlook.Recipient
Set olRecip = olNs.CreateRecipient("[email protected]") ' Update email
Dim Inbox As Outlook.MAPIFolder
Set Inbox = olNs.GetSharedDefaultFolder(olRecip, olFolderInbox)
And:
Dim InboxSubfolder as Outlook.Folder
Set InboxSubfolder = Inbox.Folders("NameOfSubfolder")
And then calling the LoopFolders InboxSubfolder, will iterate through the subfolders of the InboxSubfolder.