针对文档中附件的操作（拆、挂、删）

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

 

----------------------------拆分和回挂和删除附件--------------------------------

Sub Initialize
  On Error Goto a
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  Dim doc As NotesDocument
  Set doc = session.DocumentContext
 
  Dim RTFitem As NotesRichTextItem
 Set RTFitem = doc.GetFirstItem("FileBody")  '获得到文档中存附件的RTF域
 
  Dim Neo As NotesEmbeddedObject  '文档附件对象
 Set Neo = doc.GetAttachment("1.txt") '获取文档中的1.txt附件
 Dim path As String '定义一个路径将文档中的附件拆到下面
 path = "C:\2.txt"
  Call neo.ExtractFile(path) '将文档中的1.txt附件拆到了C盘下并且重新命名为2.txt（拆文档中的附件）
 Call neo.Remove    '将文档中1.txt删除（删除文档中的附件）

 Call RTFitem.EmbedObject(1454,"",path,"") '将物理路径下的2.txt回挂到文档中并且是存到FileBody这个RTF域中（向文档中挂附件）
 Call doc.Save(True,True)  '保存文档实现附件的拆完重新回挂的整个操作
 Kill path     '删除物力路径想的2.txt，如果path="C:\aaa文件夹\2.txt"则kill会删除掉整个文件夹
 Exit Sub
 a:
  Msgbox "错误在代理sz_test中的第" & Erl & "行-------：" & Error
 
 End Sub