Lotus中简单问题

sHTML = "<a href='http://www.sina.com.cn/'>aaa</a>"
Call rtitem.AppendText(sHTML)
Call newDoc.Send(False)

我简写了，为什么收到的邮件里是这样显示:
<a href='http://www.sina.com.cn/'>aaa</a>,而我所希望的是显示aaa，然后点击aaa就打开了网址，请问大家错在哪，如何实现? --------------------编程问答-------------------- 应该用“[]”括起来，这样写：sHTML = "[<a href='http://www.sina.com.cn/'>aaa</a>]" --------------------编程问答-------------------- 我用[]括了，但结果还是一样的 --------------------编程问答-------------------- dim s as new NotesSession
dim rtstyle as NotesRichTextStyle
dim rtf as NotesRichTextItem

set rtstyle = s.CreateRichTextStyle
rtstyle.PassThruHTML = True
set rtf = new NotesRichTextItem(doc,"body")
call rtf.AppendStyle(rtstyle)
call rtf.AppendText("<a href='http://www.sina.com.cn/'>aaa</a>")
.....

补充：企业软件 ,  Lotus