Outlook: Access root level custom folders

[Cheesecube]

Hi, I created an Outlook folder at root level (Same level as Inbox, not inside inbox) and I am having difficulty accessing it via VBA.

If it were inside Inbox, then the folder can be reached via


Dim demoFolder As Outlook.Folder
Set demoFolder = objNamespace.GetDefaultFolder(olFolderInbox).Folders("Demo")

But if I place the folder one level up, this code does Not work...


Dim demoFolder As Outlook.Folder
Set demoFolder = objNamespace.Folders("Demo")

I get error Object cannot be found

How do I access a root level Outlook folder via VBA?

[gmayor]

The following should work

Set demoFolder = objNamespace.GetDefaultFolder(olFolderInbox).Parent.folders("Demo")