当前位置:首页 > 计算机相关 > lotus专区 > 正文内容

domino中实现将本地文件放入数据库中的LS代码

piikee12年前 (2010-08-03)lotus专区253
domino中实现将本地文件放入数据库中的LS代码
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument(db)
Set rtitem = New NotesRichTextItem( doc, "Body" + i )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\test.txt")
doc.Form = "nup"
doc.Subject = "Here's Jim's document, as an attachment"
Call doc.Save( True, True )
End Sub
该代码实现把本地文件c:\test.txt放入当前文档数据库。

扫描二维码推送至手机访问。

版权声明:本文由萍客小居发布,如需转载请注明出处。

本文链接:https://www.piikee.net/672.html

分享给朋友:

相关文章

lotus专区

1. PROBLEM: 创建dB以后,预览时提示:要在WEB浏览器中成功预览此元素,请添加(或修改)匿名的ACL(或缺省的)ACL条目以使其至少具有可以创建文档的‘作者’访问权限”SOLUTION: 在dB上按右键,选应用程序,访问控制,将...

windows 2003 上Lotus Notes 客户端无法运行的解决办法

在windows 2003 上安装Lotus Notes 客户端后,运行Notes一闪而过,无法运行,解决方法如下:1.检查Lotus\notes\mui是否有MUI.DAT,没有则拷贝,此文件还关系到中文版的界面是否是中文2.如果NAME...

domino中上传控件文件拆离的LS代码

domino中上传控件文件拆离的LS代码Dim inputAttachment As NotesEmbeddedObjectDim v_files As Variantv_files = Evaluate(|@Trim(@Replace(@...

domino 8.51安装全步骤(图文教程)

domino 8.51安装全步骤(图文教程)

一、domino服务器端的安装(lotus_domino851_w32_CZ5RTEN.exe )双击打开安装包:解压到一个临时目录,只是临时存放安装数据的。解压完无需打开此目录,安装程序会自动到此目录打开安装的界面。界面如下图:点击nex...

发表评论

访客

◎欢迎参与讨论,请在这里发表您的看法和观点。