Code tweak for non-default mailbox

[gmayor]

Without access to your system, I can only guess, however, the following macro should reveal the account names and their root folders, which you can substitute in the code.

Sub testaccounts()
Dim oAccount As Account
Dim NS As Outlook.NameSpace
Dim oFolder As Folder
    Set NS = Application.GetNamespace("MAPI")
    For Each oAccount In NS.Accounts
Debug.Print vbCr & "Account: " & oAccount.DisplayName
        For Each oFolder In oAccount.DeliveryStore.GetRootFolder.folders
Debug.Print oFolder.Name
        Next oFolder
    Next oAccount
End Sub