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

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

打赏

发表评论

您的电子邮箱地址不会被公开。 必填项已用*标注