如何调用MAPI实现邮件内容的编辑?

发信的过程如下:
Public Sub MailToManager(Receiver As String, SendSubject As String, SendMessage As String)    Dim objMessage As MAPI.Message
   Dim olRecipients As MAPI.Recipients
   Dim olRecipient   '!*此處應為何類型?
     Set objMessage = olInBox.Messages.Add
     olRecipient = Receiver 
     objMessage.Text = SendMessage  '-----传送的信息体------
     objMessage.subject = SendSubject
     Set olRecipients = objMessage.Recipients
     olRecipients.AddMultiple olRecipient, CdoTo
     olRecipients.Resolve False
     objMessage.Send False, False
End Sub
这样,我传送的SendMessage 只是普通的文本.(字体大小,颜色都是默认的.),如何实现SendMessage 样式的编辑呢?
甚至做到没一行的控制....(第一行12号字体,蓝色;第一行13号字体,红色;第五行有个连接.......)