Private Sub btnEmail_Click()
Dim updateSent As String
DoCmd.SendObject acSendQuery, "qryContactsPrinter", acFormatXLS, "campbell@nbcc.org", , , "GCDF Email Example to Printing Company", "Please review your data below for accuracy"
DoCmd.SetWarnings False
updateSent = "UPDATE Applicants set Applicants.EmailedToPrinter = -1, Applicants.DateEmailedPrinter = Now() WHERE Applicants.EmailedToPrinter = 0"
DoCmd.RunSQL updateSent
DoCmd.SetWarnings True
MsgBox "Excel Spreadsheet has been emailed to the printing company."
DoCmd.Close acForm, "f_Admin_Main_Printer"
End Sub