Dim rs As DAO.Recordset 'On Error Resume Next Set rs = CurrentDb.OpenRecordset("qryEmail_Reminder_RecordSet_Apps") With rs If .EOF And .BOF Then 'IT MEANS THERE ARE NO RECORDS, WE ARE AT THE BEGINNING OF FILE AND END OF FILE (No Records found for this query.) MsgBox " No emails will be sent because there are no records from the query ‘Email_Reminder_RecordSet_Apps’ " Else Do Until .EOF 'DO UNTIL END OF RECORDSET FILE 'THE NEXT LINE SENDS THE EMAIL MESSAGE DoCmd.SendObject acSendNoObject, , , ![Send_Email], , , "New Application Access", "Hello " & ![Send_To] & _ ", " & Chr(10) & "Please grant access to " & ![First_Name] & _ " " & ![Last_Name] & _ ", " & ![User_Email] & _ " to the following application: " _ & Chr(10) & ![App_Site_Name] & Chr(10) & Chr(10) _ & Chr(10) _ & Chr(10) _ & Chr(10) _ & "Thanks, " & Chr(10) _ & "V hields" _ & Chr(10) _ & "DSPC" .Edit ![Email_Sent_Date] = Now() .Update .MoveNext 'THIS MOVES TO THE NEXT RECORD IN THE RECORDSET Loop End If End With 'CLEAN UP MEMORY AT END If Not rs Is Nothing Then rs.Close Set rs = Nothing End If
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.