怎么用LotusScript附加文档

如何用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