using VBA, how do i set a contacts folder as an "e-mail address book"?

[marcdoyle]

I am using VBA to create a new contacts folder in the Personal folders called "FB Contacts" as displayed here:

Private Sub CreateFolder()

On Error GoTo createdone
Set MyContactsFolder = objNS.GetDefaultFolder(olFolderContacts).Parent
Set mynewfolder = MyContactsFolder.Folders.Add("FB Contacts", olFolderContacts)
createdone:

End Sub

Trouble is, the folder does not have "Show this folder as an e-mail address book" item checked, so the contacts list does not appear when you click "To:"

Does anyone know if it's possible to set this item to be checked using VBA? This is my only obstacle left until my program is finished.

Thanks in advance

Marc

_____________________________________________________________________________________________________________________
There are 10 kinds of people in the world; those who understand binary and those who don't.