Outlook VisualBasic Script

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