如何用LotusScript附加文档

最新推荐文章于 2017-08-08 22:09:38 发布

原创最新推荐文章于 2017-08-08 22:09:38 发布 · 222 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#LotusScript

LotusScript 专栏收录该内容

5 篇文章

订阅专栏

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