Add a Contacts folder to My contacts( "add to my contacts"..

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/ =-

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)

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007.
Reminder Manager, Extended Reminders, Attachment Options.
http://www.slovaktech.com/products.htm


"pim" <abracadabra.TakeThisOut@wizard.com> wrote in message
news:ouCdnU0eoM-jRdzUnZ2dnUVZ_jqdnZ2d@giganews.com...
> 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/ =-
>