I would try changing this:
strEmail = rsEmail.Fields("EmailAddress").Value
DoCmd.SendObject , , , strEmail, , , rsEmail.Fields("Matric No").Value, "This is an automated e-mail. Please do not respond", False
To this:
strEmail = rsEmail.Fields("EmailAddress").Value
Iif(len(strEmail) > 0 then...