Public Sub basSendMail()

Dim objMailItem As MailItem

Set objMailItem = Application.CreateItem(olMailItem)

With objMailItem
    .To = "rasx@kintespace.com"
    .Subject = "Is Haley's Comet for You?"
    .Body = "This is the body text."
    .Send
End With

End Sub