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

domino文件拆离数据库,放入指定目录

piikee14年前 (2010-08-03)lotus专区387
domino文件拆离数据库,放入指定目录的LS代码:
Sub Initialize
On Error Goto MsgError
Dim session As New NotesSession
Dim doc As NotesDocument
Dim FilePath As String
Dim fileNames As Variant
Dim objEmbed As NotesEmbeddedObject
Set doc=session.DocumentContext
fileNames=Evaluate("@AttachmentNames",doc)  '获取文档所有附件名称
filePath=session.GetEnvironmentString("Directory")  '环境变量
If(Isarray(fileNames)) Then
Forall fileName In fileNames
filePath=filePath+"\"+fileName
Set objEmbed=doc.GetAttachment(filename)
Call objEmbed.ExtractFile(filePath)'将文档中的附件导出
Call objEmbed.Remove() '删除文档中的附件
End Forall
End If
Exit Sub
MsgError:
Msgbox "Error:"+Error$+" onLine:"+Cstr(Erl)
End Sub

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

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

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

分享给朋友:

相关文章

lotus专区

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

LotusScript下的分页

表单页面放一个域,名字为curpage,域的defaultvalue写上@UrlQueryString 获取URL。再放一个display_list的计算域,用于显示列表和分页导航。表单的webqueryopen写上@Command([To...

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

domino中实现将本地文件放入数据库中的LS代码Sub InitializeDim session As New NotesSessionDim db As NotesDatabaseDim doc As NotesDocumentDim...

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

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

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

发表评论

访客

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