Sub SendEmail DoCmd.SendObject acSendNoObject, , , "d@yahoo.com", , , "This is cool!", "an email.", FalseEnd Sub