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.

set ContactsFolder = 
OutlookApplication.Session.GetDefaultFolder(olFolderContacts)
set NewContactsFolder = ContactsFolder.Folders.Add("Contacts Subfolder")
set Contact = NewContactsFolder.Items.Add("IPM.Contact")
Contact.Email2Address = "may04_NOTTHIS@mindspring.com"
Contact.FirstName = "Margaret"
Contact.LastName = "Bartley"
Contact.Save

-- 
Dmitry Streblechenko (MVP)
http://www.dimastr.com/
OutlookSpy  - Outlook, CDO
and MAPI Developer Tool
-
"Margaret Bartley" <may04_NOTTHIS@mindspring.com> wrote in message 
news:ex$$vtobKHA.2188@TK2MSFTNGP04.phx.gbl...
>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.
>
>