Add a Contacts folder to My contacts( "add to my contacts" action)

[pim]

HI,

I would like to have to know if there is a vba code to do the same as the function "add to my contacts" when i right click on my contacts folder in the folder list view ?

thank a lot


--------------= Posted using GrabIt =----------------
------= Binary Usenet downloading made easy =---------
-= Get GrabIt for free from http://www.shemes.com/ =-

 

[Ken Slovak - [MVP - Outlook]]

Dim oFolder As Outlook.MAPIFolder
Dim oContacts As Outlook.MAPIFolder

Set oContacts = Application.Session.GetDefaultFolder(olFolderContacts)
Set oFolder = oContacts.Folders.Add("My New Contacts Folder",
olFolderContacts)