Hi All,

I'm trying to create a new contact in a public contact folder. I can create one in the main contacts folder easily enough but trying to add on into a public folder is failing on the last line below. the AddressBook2 line works fine but goes into the main contacts folder

#define olFolderContacts 10
*olFolderContacts2 = "Public Folders-All Public Folders-PantherProducts Contacts"
outlook = CreateObject("Outlook.Application")
namesp = outlook.GetNamespace("MAPI")

MyFolder1 = namesp.Folders("Public Folders")
MyFolder2 = MyFolder1.Folders("All Public Folders")
MyFolder3 = MyFolder2.Folders("PantherProducts Contacts")

AddressBook2 = NameSp.GetDefaultFolder(olFolderContacts)

AddressBook = NameSp.folder(MyFolder3)

Contact = AddressBook.Items.Add()

WITH Contact
...

~M