Outlook email from Excel VBA - message format & importance

Like this:

With CreateObject("Outlook.Application").Createitem(0)
    .importance = 2
    .body = "your text body"
    .bodyformat = 1
    .display
End With