求助VB发邮件的字体改变的方法

大家好

本人利用MAPISession和MAPIMessages实现了发邮件的功能

但是怎么使某一个或几个关键字字体变为红色，加粗

怎么处理

多谢大虾提点

代码如下：
VB code

Public Sub sendMail(strMailAddress As String, messageContent As String, strTitle As String)

    Dim arrMailAddress() As String          '存储发件人的数组
    Dim i As Long                           '遍历发件人数组的循环变量

On Error GoTo ErrHandle

    '如果邮件地址没有的话，就不发送
    If strMailAddress = "" Then
        Exit Sub
    Else
        '支持收件人地址以逗号或者以分号隔开的配置方法
        strMailAddress = Replace(strMailAddress, ",", ";")
        '支持多收件人地址发送
        arrMailAddress = Split(strMailAddress, ";")
    End If
    
    messageContent = messageContent & vbCrLf
    messageContent = messageContent & vbCrLf & Format(Now, "yyyy-MM-dd")
    messageContent = messageContent & vbCrLf & vbCrLf & "------------------------------------------------------------"
    messageContent = messageContent & vbCrLf & "本邮件为系统自动发送，请勿回复。"

    With frmIMSPIIT.MAPISession1
        .LogonUI = False
        .SignOn         '登录
    End With
    
    '支持多收件人地址发送
    For i = LBound(arrMailAddress) To UBound(arrMailAddress)
        '如果邮件地址不为空则发送
        If arrMailAddress(i) <> "" Then
            With frmIMSPIIT.MAPIMessages1
                .MsgIndex = -1
                .SessionID = frmIMSPIIT.MAPISession1.SessionID
                .RecipDisplayName = arrMailAddress(i)
                .MsgSubject = strTitle
                .MsgNoteText = messageContent
                .MsgRead
                .Send
            End With
        End If
    Next
    
    '退出登录
    With frmIMSPIIT.MAPISession1
        .SignOff
    End With
    '程序结束
    Exit Sub
ErrHandle:
    '退出登录
    With frmIMSPIIT.MAPISession1
        .SignOff
    End With
End Sub

想实现的目的如下：
你好：
  经系统检查确认，截止在2011-6-1，尚未收到你上传的5月份月报表，请你务必在2011-6-1 10:00之前上传该月报表！


2011-6-1
------------------------------------------------------------

本邮件为系统自动发送，请勿回复。

我感觉应该还与接收方的设置有关系

如果接收方的邮件设置为纯文本，那么我效果再夸张他也只是接受文字

不过这个关系不大

我设想的是：
我发出需要带有颜色和粗体
如果接收方能够接受颜色和字体最好，只能显示纯文本的话那就显示纯文本