Sub mail()
Dim myMessage As MailItem
Set myMessage = Application.CreateItem(ItemType:=olMailItem)
With myMessage
.To = "test@example.com"
.Subject = "Test message"
.Body = "This is a test message."
.Display
End With
End Sub