如何使用LotusScript从Notes中将Rich Text字段导出为HTML？

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim doc As NotesDocument
    Dim rtitem As NotesRichTextItem
    Dim html As String

    Set db = session.CurrentDatabase
    Set doc = db.CreateDocument

    ' 创建一个新的Rich Text字段
    Set rtitem = doc.CreateRichTextItem("Body")

    ' 在Rich Text字段中添加文本和格式
    rtitem.AppendText("Hello, World!")
    rtitem.AddNewLine(2)
    rtitem.AppendText("This is a test.")
    rtitem.Font("Arial")
    rtitem.FontSize(14)
    rtitem.Bold(True)

    ' 将Rich Text字段导出为HTML
    html = rtitem.GetHTML(True, True)

    ' 在文档中创建一个HTML字段，并将HTML代码写入该字段
    doc.HTML = html

    ' 保存文档
    doc.Save(True, False)

    ' 显示文档
    doc.View
End Sub