VBS for going to outlook folder

VBS for going to outlook folder

go_to_outlook_folder.vbs 

Set objArgs = Wscript.Arguments
entryID=  objArgs(0)
'entryID= "000000006BB57692B5FB4241A6774286EDB4A35C026A0200"
set outlook = createObject("Outlook.Application")
set thisFolder = outlook.GetNameSpace("MAPI").GetFolderFromID(entryID)
thisFolder.display()
outlook.ActiveExplorer.WindowState = 0    ' maximize the window

usage example

go_to_outlook_folder.vbs 000000006BB57692B5FB4241A6774286EDB4A35C026A0200