Excel VBA send Outlook HTML

Question

I\'m trying to send a message from Excel using the following code but it always trigger a run time error when I get to the .HTMLBody

 Sub CreateHTMLMail()