[Code]
Private Sub cmdEmailJob_Click()
DoCmd.SendObject cReport, "rptVinciInstructionToEngageSubCon", "RichTextFormat(*.rtf)", EMail, , , "Job No. " & Me.NameofControl, _
"Please see attached.", False
DoCmd.SetWarnings False
'DoCmd.RunSQL "UPDATE tblSubConOrders SET tblSubConOrders.MailSent = -1...