Exporting e-mail addresses in a table to Outlook Express 1

[InkyRich]

Hello,
I have created a table of e-mail addresses in Access using a 'create table' query, which I need to automatically export to an Outlook Express address book using VBA. At the moment I am having to enter them manually from a print-out.
Can anyone advise how to do this?

Inky

A fool and his money are soon parted - so you might as well send it to me!

 

[Remou]

A few notes:

    Dim oApp As Outlook.Application
    Dim oContact As Outlook.ContactItem
    
    Set oApp = CreateObject("Outlook.Application")
    Set oContact = oApp.CreateItem(olContactItem)
    With oContact
        .FirstName = rs!FName
        .LastName = rs!SName
        .Email1Address = rs!Email
        .Save 
    End With
    Set oContact = Nothing
    Set oApp = Nothing

 

[InkyRich]

Thanks Remou I will give it a try
Inky

A fool and his money are soon parted - so you might as well send it to me!