I don't know if this is any use or it may just be a starter but I did something similar:
DoCmd.SendObject , , , "me@email.com ", Me![StaffnameField] & "", , "Email response to: " & Me![StaffNameField] & "", "Your request has been assessed and authorised. ", True