set ContactsFolder =
OutlookApplication.Session.GetDefaultFolder(olFold erContacts)
set NewContactsFolder = ContactsFolder.Folders.Add("Contacts Subfolder")
set Contact = NewContactsFolder.Items.Add("IPM.Contact")
Contact.Email2Address = "
Contact.FirstName = "Margaret"
Contact.LastName = "Bartley"
Contact.Save

--
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy - Outlook, CDO
and MAPI Developer Tool
-
"Margaret Bartley" wrote in message
...
I use Access to manage my membership data.
I'd like to generate an new Access mailing list everytime I send out a
newsletter, using a vba module. That module will create a MailingList
table.
I'd like add some code to that module to open Outlook, create a new
Contacts folder, and populate that new folder with the address in my new
MailingList table.

Can anyone please point me to some vba automation code that will give me
the syntax to create a new Contacts folder and then populate it with an
Access table? I already have some code to instantiate Outlook, so that's
not necessary, but certainly won't hurt, either.

Thanks.