如何用LotusScript附加文档

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

sap_man

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

阅读量179

点赞数

分类专栏： LotusScript 文章标签： LotusScript

本文链接：https://blog.csdn.net/sap_man/article/details/84227727

版权

LotusScript 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

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