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