---------拆分附件---------
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