Outlook starten en dan direct de openbare mappen openen

Is er een mogelijkheid om bij het opstarten van outlook, de openbare mappen uit te vouwen. Dus niet dat er gestart wordt in deze map maar alleen uitgevouwen?

Ik heb geprobeerd een snelkoppeling te maken met de volgende code:

"C:\Program Files (x86)\Microsoft Office\root\Office16\OUTLOOK.EXE" Files (x86)\Microsoft Office\root\Office16\OUTLOOK.EXE" /select "outlook://Openbare mappen - naam@adres.nl/Alle openbare mappen/Project Archief/"

Hier staat uitgelegd hoe je dat met een simpel stukje VBA kan doen:
http://www.slipstick.com/developer/code-samples/shortcut-open-outlook-folders/

Sub openJunkFolder()
Dim objOlApp As Outlook.Application
Set objOlApp = CreateObject("Outlook.Application")
Dim objFolder As Outlook.Folder

Set objFolder = Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("Project Archief")

Set objOlApp.ActiveExplorer.CurrentFolder = objFolder

Set objFolder = Nothing
Set objOlApp = Nothing
End Sub

Dit is de code die ik heb opgesteld, echter werkt deze code nog steeds niet.
Hieronder staat een foto van het pad waar het eigenlijk heen zou moeten.

Ik had hiervoor al een code geschreven maar als outlook opstart en ik klikte op deze knop dan opende alleen de map maar de 'mappen browser' was daarbij links niet zichtbaar. Misschien dat dit wel op te lossen is.
Deze oude code is:

Sub OpenPubFldrProjects()
Dim objOutlook As Outlook.Application
Dim olns As NameSpace

Set objOutlook = CreateObject("Outlook.Application")
Set olns = objOutlook.GetNamespace("MAPI")
Set MyFolder1 = olns.Folders("Openbare mappen - NAAM@adres.nl")
Set MyFolder2 = MyFolder1.Folders("Alle openbare mappen")
Set MyFolder3 = MyFolder2.Folders("Project Archief")
Set MyFolder4 = MyFolder3.Folders("2017")
Set MyFolder5 = MyFolder4.Folders("vervolgd")
Set Application.ActiveExplorer.CurrentFolder = MyFolder5
End Sub

Tot op heden heb ik nog geen passende oplossing kunnen vinden voor dit probleem, iemand een idee hoe het op te lossen is?

Dim NS As Outlook.NameSpace
Dim objOwner As Outlook.Recipient

Set NS = Application.GetNamespace("MAPI")
Set objOwner = NS.CreateRecipient("maryc")
objOwner.Resolve

If objOwner.Resolved Then
'MsgBox objOwner.Name
Set newCalFolder = NS.GetSharedDefaultFolder(objOwner, olFolderCalendar)
End If

Dit is de code die ik inmiddels heb gevonden op internet maar hoe bouw ik deze om naar mijn benodigde code?