outlook and access (2000/sr-1)

[dahodges]

I want to send a single email to a list of email addresses that exists in an Access table/query. Does anyone know how I can automate this process?

[bushaw]

Here's the basic framework that should get you started:
<font face="Georgia">
Public Sub SendMessage(strNameTable As String, strBody As String)

Dim Outlook As Object
Dim myItem As Object
Dim blnNeedToQuit As Boolean
Dim rstNames As Recordset

Set rstNames = CurrentDb.OpenRecordset(strNameTable, dbOpendynaset)

' Reference Outlook application object
On Error Resume Next
Set Outlook = GetObject(, "Outlook.Application")

' If Outlook isn't running, then create an instance of it
blnNeedToQuit = False
If Err Then
Set Outlook = CreateObject("Outlook.Application")
blnNeedToQuit = True
End If
On Error GoTo 0

Set myItem = Outlook.CreateItem(olMailItem)

Do While Not rstNames.EOF
myItem.Recipients.Add rstNames!EMailAddress
rstNames.MoveNext
Loop

myItem.Subject = "Message Title Text"
myItem.Body = strBody

On Error Resume Next
myItem.Send
On Error GoTo 0

If blnNeedToQuit Then Outlook.Quit

End Sub
</font face=georgia>
In VBA be sure to specify references to the Microsoft DAO library (latest version; probably 3.6) and the Microsoft Outlook 9.0 Object Library using Tools...References.

Hope this helps.

[dahodges]

I'm sorry I've been so slow to respond to your post, but your post was exactly what I needed to get me started. Thank you very much!
<img src=/S/bravo.gif border=0 alt=bravo width=16 height=30>