VBS+Outlook как изменить шрифт в теле письма?

Формулировка задачи:

Письмо создается успешно, затык происходит на строке MyItem.Body.Select.
Изменение шрифта делал по аналогии с Excel, но почему-то не сработало.

CreateMess
 MyOlApp = CreateObject()
 MyItem = MyOlApp.CreateItem(olMailItem)
MyItem.Subject = 
MyItem. = 
MyItem.Body = 
MyItem.Body.
MyItem.Body.Selection.Font. = 
MyItem.Display
 

Подскажите, кто знает.

Решение задачи: «VBS+Outlook как изменить шрифт в теле письма?»

textual
                            Листинг программы 
                        
                            ...
MyItem.HTMLBody = <font color="teal">"<font name="Courier New">bla-bla-bla</font>"</font>
...