如何用LotusScript附加文档

        LotusScript语言提供我们一些工具选择、更新、修改Lotus Notes数据库，你可以在使用LotusScript在你的Notes Document中嵌入文档，LotusScript可以使得在你的Notes Document中嵌入很多数据类型，例如:texts, 数据库报表。

Sub Initialize
        Dim ses As New NotesSession
        Dim db As NotesDatabase
        Dim collection As NotesDocumentCollection
        Dim doc As NotesDocument
        Dim rtitem As Variant
        Dim object As NotesEmbeddedObject
        Set db = ses.CurrentDatabase
        Set collection = db.AllDocuments
        Set doc = collection.GetFirstDocument
        Set rtitem = doc.GetFirstItem("Body")
        Call rtitem.EmbedObject(EMBED_ATTACHMENT, "", "test.txt")
        Call doc.Save(True, True)
End Sub