outlook.application如何设置邮件正文的字体颜色???

Set olapp = CreateObject("outlook.application")
Set oitem = olapp.CreateItem(olMailItem)
With oitem
.Subject = todayYearTemp & "日出勤资料发送报告"
.To = mailman
.Body = "内容"
.Send
End With
这是我程序中的关键代码，有哪位高手知道，如何将“内容”二字显示为红色的？可否给出代码！
谢谢各位！