I have come up with this Function, but it works only with a table, not a query. Anyone know how to write it so the SQL statement can have a query? SQL = "SELECT Email FROM qryProduct1;"
Function Email()
Set db = CurrentDb
SQL = "SELECT Email FROM Company;"
Set rs = db.OpenRecordset(SQL)
rs.MoveFirst
Do While rs.EOF = False
Email = Email & rs!Email & ";"
rs.MoveNext
Loop
DoCmd.SendObject acSendNoObject, , , , , Email, , , , True
End Function
Function Email()
Set db = CurrentDb
SQL = "SELECT Email FROM Company;"
Set rs = db.OpenRecordset(SQL)
rs.MoveFirst
Do While rs.EOF = False
Email = Email & rs!Email & ";"
rs.MoveNext
Loop
DoCmd.SendObject acSendNoObject, , , , , Email, , , , True
End Function