I have the code (see below) - this works perfect - for placing the contact data in the copy of Outlook on a User's PC

I want to use this - I will create a button that says "Create Personal Contact" - which will create the conntact in the User's Personal Contacts folder..

I would also like to have another button - that says "Create Public Contact" - this will create the contact in a Public Folder..

How can I modify the code below to create a contact in a folder named Public Contacts


Thanks - AB

Dim olApp As Outlook.Application
Dim olnamespace As Outlook.NameSpace
Dim objcontact As Outlook.ContactItem

Set olApp = New Outlook.Application
Set olnamespace = olApp.GetNamespace("MAPI")
Set objcontact = olApp.CreateItem(olContactItem)

With objcontact
.LastName = Me.LastName
.FirstName = Me.FirstName
.Close olSave '.Save 'close the contact object with the save option
End With
Set objcontact = Nothing 'now free up memory

Set olnamespace = Nothing 'this should be olnamespace to properly free up memory
olApp.Quit 'need to quit the application
Set olApp = Nothing 'now free up memory