Can someone please time me want is wrong with is code. I am trying to send a email for each person in a table called Tbl_Uses. I am new to using data connections so is there something basic at the start which is need to do?
Function email()
Dim Report As String
Dim emailaddress As String
Dim sql As String
Dim rs As Recordset
Report = "Rpt_Email_PassTo"
Set rs = CurrentDb.OpenRecordset("Tbl_Users", dbOpenSnapshot)
If Not rs.BOF Then
rs.MoveFirst
Do Until rs.EOF
emailaddress = rs("email")
DoCmd.SendObject acSendReport, Report, acFormatRTF, email, , , "Planning Application register", "", "No"
rs.MoveNext
Loop
End If
rs.Close
End Function
Function email()
Dim Report As String
Dim emailaddress As String
Dim sql As String
Dim rs As Recordset
Report = "Rpt_Email_PassTo"
Set rs = CurrentDb.OpenRecordset("Tbl_Users", dbOpenSnapshot)
If Not rs.BOF Then
rs.MoveFirst
Do Until rs.EOF
emailaddress = rs("email")
DoCmd.SendObject acSendReport, Report, acFormatRTF, email, , , "Planning Application register", "", "No"
rs.MoveNext
Loop
End If
rs.Close
End Function