domino文件拆离数据库，放入指定目录的LS代码：
Link URL: http://www.piikee.net/read.php/403.htm
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 bjEmbed=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
Tags - domino , 拆离数据库
Link URL: http://www.piikee.net/read.php/403.htm
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/15647543/viewspace-674008/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
