Sub message()
Dim myMessage As MailItem
Set myMessage = Application.CreateItem(ItemType:=olMailItem)
With myMessage
.To = "yourName@yourSite.com"
.Subject = "Preparation "
.Body = "review."
.BodyFormat = olFormatHTML
.Importance = olImportanceHigh
.Send
End With
End Sub