Enable Your Employees To Focus On The Core With Intuitive Onscreen Guidance That is With You At The Moment of Need.
Dim MyDb As DAO.Database Dim MyRS As DAO.Recordset Dim strTo As String Dim strCC As String Dim strBCC As String Dim strMsg As String Dim strSubject As String Set MyDb = CurrentDb Set MyRS = MyDb.OpenRecordset("qryEmail", dbOpenDynaset) 'This is the recordset MyRS.MoveFirst Do strTo = MyRS("Email") 'THIS IS THE EMAIL FIELD strMsg = "Message " 'This is the mail message strSubject = "Subject" 'This is the subject DoCmd.SendObject acReport, "ReportName", acFormatXLS,strTo, strCC, strBCC, strSubject, strMessage,val(0) ' send mail MyRS.MoveNext Loop Until MyRS.EOF MyRS.Close MyDb.Close
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|Trying to disallow duplicate entries in a text fiel on a form||3||20|
|qry that pulls up counts and $ totals by certain interval per sales rep for quote & sale activity, part II||16||54|
|Clear Current Value from Combobox||2||26|
|Access query error||3||26|