Folders in Outlook

Hello, what is the way to access public folders in Outlook?
I tried this:


Dim dosContacts As Outlook.MAPIFolder
Set dosContacts = Application.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders)

but it says it's waiting for an object...
In fact, the folder I want to access is in Public Folders\All Public Folders\ and is called Public Contacts.

So how can I access the items (which are contacts) in this folder in VBA???

May be this helps...

VB Code:

Dim dosNameSpace As Outlook.NameSpace
Dim dosPublics As MAPIFolder
Dim dosContacts As MAPIFolder
Set dosNameSpace = Application.GetNameSpace("MAPI")
Set dosPublics = _
    dosNameSpace.GetDefaultFolder(olFolderXXXX) 'should be the public
Set dosContacts = dosPublics.Folders("All Public Folders")
'The following Visual Basic for Applications example returns
the first folder in myFolder.
Set dosContacts = dosPublics.Folders(1) 'u can use the name..