Can MS Access be linked to MS Outlook?

Hi,
I manage a database of members of a club (about 500 members). I also need to email members quite frequently. Currently, i have to update both the ms database and the address book in outlook when members join, or change email address etc. this is duplication of work (obviously) but it also increases the chance of errors. My question is:
Can i link the column with the email address in the Access database with Outlook, so that when the email address is ammended in Access, Outlook is automatically updated??????

Thank you for any solutions!

If you go to external data and link table you should be able to pick up the Exchange address book..

Another option is to use some VB code in Access to update Outlook using OLE.

Technologist said:

Another option is to use some VB code in Access to update Outlook using OLE.

Click to expand...

Any chance of posting such code Technologist???

You don't need code to do this. Check out http://office.microsoft.com/en-us/help/HA011165811033.aspx.

Firefly said:

Any chance of posting such code Technologist???

Click to expand...

OK, here's an example, it runs in VB but should run in Access too, you'd need to change some names to suit your database, but it's a very flexible technique.

Public Sub ImportTasks()
Dim ws As DAO.Workspace
Dim db As DAO.Database
Dim rc As DAO.Recordset
Dim n As Integer
Dim i As Integer
Dim myolApp As Outlook.Application
Dim myNameSpace As Outlook.NameSpace
Dim myFolder As MAPIFolder
Dim rootfolder As MAPIFolder
Dim myNewFolder As Outlook.MAPIFolder
Dim Mesg As Object
Dim Subj As String
Dim CreateDate As Date
Dim ti As TaskItem

Set ws = Workspaces(0)
Set db = ws.OpenDatabase("D:\My Documents\mydatabase.mdb", False, False, ";PWD=mypassword")
Set rc = db.OpenRecordset("SELECT * FROM myTasks WHERE NOT TaskComplete Order By Seq")

Set myolApp = CreateObject("Outlook.Application")
Set myNameSpace = myolApp.GetNamespace("MAPI")

Set rootfolder = myNameSpace.Folders("Personal Folders").Folders("Tasks")

Do While Not rc.EOF

Set ti = rootfolder.Items.Find("[Subject]='" & Format$(rc("Seq"), "000") & " " & rc("TaskDetail") & "'")
If ti Is Nothing Then
Set ti = rootfolder.Items.Add(olTaskItem)
End If
Label1.Caption = rc("TaskDetail")
Label1.Refresh

ti.Subject = Format$(rc("Seq"), "000") & " " & rc("TaskDetail")
ti.Body = ""
'If Not IsNull(rc("TaskMemo")) Then ti.Body = rc("TaskMemo")
ti.Complete = rc("TaskComplete")
ti.StartDate = Now()
ti.DueDate = CDate("2 Feb 2007")
ti.Importance = olImportanceNormal
ti.ReminderSet = False
ti.Categories = "mycategory"
ti.Save
rc.MoveNext
Loop

rc.Close
db.Close
ws.Close

MsgBox "Complete"
End Sub