I need to send a group email to address listed in the "Email" field of a table. This is my start:

Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEmail_Click

Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("select Email from qryEmail where SectionID=cmbSchClasses")


With rs
DoCmd.SendObject acSendNoObject
End With

Exit_cmdEmail_click:
Exit Sub

Err_cmdEmail_Click:
MsgBox Err.Description
Resume Exit_cmdEmail_click

End Sub


Basically, I need to send an enrollment confirmation to all the students enrolled in a certain section of training.

Can anyone help?

I've got a demo that I put together for someone else that might be of interest to you.

If you would like a copy, please email me with 'email demo' in the subject line; I will send the demo by reply.

HTH

Mike