thanks for your reply.
I want to extend the MAPI folders
Set myOlApp = CreateObject("Outlook.Application")
Set myNameSpace = myOlApp.GetNameSpace("MAPI")
Set myFolder = _ myNameSpace.GetDefaultFolder(olFolderContacts)
You cannot extend any of the enumerations in the Outlook object model.
--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers