save items to contacts subfolder

[Chris Kettenbach]

I am using Access to automate outlook. I want to save the items in a
subfolder of my contacts folder.

I have this so far

sub MakeContact()
dim ol as outlook.application
dim ns as outlook.namespace
dim fldr as outlook.mapifolder
dim myC as outlook.contactitem

set ol = new outlook.application
set ns = ol.getnamespace("MAPI")
set fldr = ol.getdefaultfolder(olFolderContacts)

set fldr2 = fldr.folders("My Folder")
'blah blah blah
end sub

my dilema is that it save the created contactitem to the main contacts
folder. The idea is to save the item to fldr2. What am I doing wrong? Can
anyone help?

Regards,
~ck

 

[Patricia Cardoza - [MVP Outlook]]

Set objItem = fldr2.Items.Add(olContactItem)