There are a couple different methods.
This method requires setting up a table of email addresses. You can then add/edit/delete addresses easily through the table. The VBA module pulls the addresses from the table to execute the send email feature.
This code uses the Form_Open event to execute. You can set your own procedure to execute the code such as a button click.
The code is using [tblEmail] as the table with email addresses.
Also be sure your ADO libraries are set under Tools|References in VBA.
Hope this helps!
Private Sub Form_Open(Cancel As Integer)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim stDocName As String
Dim strEmail As String
stDocName = "Report Name"
rs.Open "tblEmail", cn
With rs
Do While Not .EOF
strEmail = strEmail & .Fields("Email") & ";"
.MoveNext
Loop
.Close
End With
strEmail = Left(strEmail, Len(strEmail) - 1)
DoCmd.SendObject acReport, stDocName, acFormatSNP, strEmail, , , "Subject Line", , False
Exit Sub
End If
End Sub