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

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

piikee12年前 (2010-08-03)lotus专区172
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

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

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

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

分享给朋友:

相关文章

lotus中的CGI域

为了在域中捕获C G I变量,创建一个以C G I变量命名的文本域(例如, HTTP_COOKIE)。一般地,在编辑状态下将该域设置为隐藏,这样用户就不能改变域中的值。当用户打开表单的时候, HTTP_COOKIE环境变量的实际值变成了域中...

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(@...

发表评论

访客

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