Send out an email by using the DoCmd.SendObject
Sub SendEmail DoCmd.SendObject acSendNoObject, , , "d@yahoo.com", , , "This is cool!", "an email.", False End Sub