Hey Paul, Thanks for pointing out these two. It actually working now. :)
I also needed to add a no to that the email goes automatically... Proper Code for this will be:
DoCmd.SendObject acSendNoObject, , , strTo, , , strSubject, strBody, no
You're Right Paul - That will be a Good Question...