Kind of MAPIfolder after PickFolder

[ahilberink]

Because I am not working within VBA I will descripe my question:

I use GetNamespace and from this I use PickFolder.
Now I have the MAPIFOLDER. Everyyhing works fine.

Is there a way to get the kind of folder like:
olFolderCalendar, olFolderContacts, olFolderDeletedItems, olFolderDrafts, olFolderInbox, olFolderJournal, olFolderNotes, olFolderOutbox, olFolderSentMail, olFolderTasks, olPublicFoldersAllPublicFolders, and olFolderJunk.

Using DefaultItemType only gives:
olMailItem etc.

You can answer in vba style, no problem.

Thanks in advange,
André