Here is the rest of the procedure:
Dim rs As DAO.Recordset
Dim EmailTo, EmailSubj, EmailText, EmailFrom, EmailAtach
Dim oFSO, sFile, sSig, oFile, sText, oFileA, sCurPath
Set rs = CurrentDb.OpenRecordset("Select Distinct tblTechnicians.TechNumber, tblTechnicians.Email FROM tblTechnicians WHERE...