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

---------拆分附件---------

Sub Initialize
 On Error Goto a 
 Dim session As New NotesSession
 Dim doc As NotesDocument
 Set doc = session.DocumentContext
 Dim NEO As NotesEmbeddedObject '文档附件对象
 Path = "C:\new.txt"     '路径
 
 Set NEO = doc.GetAttachment("old.txt") '得到文档中的附件old.txt
 EOB.ExtractFile(Path)         '将数据文件拆离到临时文件夹下并且将old.txt的名字改为new.txt
 Exit Sub
a:
 Msgbox "错误在代理sz_test中的第" & Erl & "行-------：" & Error
 
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