怎么在NotesRichTextItem中添加超链接？

我要在Agent中做类似自动回复的功能
要在发送邮件的body里添加一个超链接，类似这样的效果：
<a href="http://www.google.com">link to google</a>

我在脚本里这样写的：
Call rtItem.AppendText("[<a href='http://www.g.cn'>link to google</a>]")

但是接收到邮件后直接把HTML显示出来了，没有变成超链接
我是用Lotus Notes客户端收邮件的，Domino版本是6.5

请问这种功能要怎么做？
谢谢 --------------------编程问答-------------------- 直接写：
Call rtItem.AppendText("link to google: ")
Call rtItem.AppendText("Http:\\www.google.com") --------------------编程问答-------------------- 我用google地址只是做个示例
其实我的URL很长，直接显示给用户看的话，不美观。。。
--------------------编程问答-------------------- Call rtItem.AppendText(database，“”，“点我进入”) --------------------编程问答-------------------- Dim MailDoc As NotesDocument
Dim HtmlBody As NotesStream
Dim Mime As NotesMIMEEntity

Set MailDoc = 
Set HtmlBody = Session.CreateStream

Body = |<style type="text/css">*{font-family:宋体;font-size:12px;} tr{line-height:21px;} td{padding:5px;background-color:#FFFFFF;} td.caption{font-weight:bold;background-color:#F7F7F7;color:#333333;width:80px;}</style>|
Body = Body + |<table style="background-color:#d8d8d8;width:600px;" cellspacing="1">|
Body = Body + |<tr>|
Body = Body + |<td class="caption">名称</td><td>| + TheTitle$ + |</td>|
Body = Body + |</tr>|
Body = Body + |</table>|
Call HtmlBody.WriteText(Body)

Set Mime = MailDoc.CreateMIMEEntity("Body")
Call Mime.SetContentFromText(HtmlBody, "text/html;charset=UTF-8", ENC_NONE)
MailDoc.SendTo = SendToList

补充：企业软件 ,  Lotus