针对文档中附件的操作(拆、挂、删)
来源:互联网 发布:软件研发 考核指标 编辑:程序博客网 时间:2024/06/05 09:09
---------拆分附件---------
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
- 针对文档中附件的操作(拆、挂、删)
- 针对文档中附件的操作(拆、挂、删)
- ORACLE EBS中附件功能的使用(上传用户操作文档)
- 附件的WORD文档
- JDBC中针对数据的批量操作
- 利用poi操作word文档(针对docx格式)
- 利用poi操作word文档(针对docx格式)
- 把domino中文档中的附件拷贝考另外的一个文档中
- 在PDF文档中添加附件需要我们如何去进行操作
- QTP中对QC附件操作的几个函数
- QTP中对QC附件操作的几个函数
- 文档附件在线查看(类似百度文库的实现)
- 文档附件在线查看(类似百度文库的实现)
- 文档附件在线查看(类似百度文库的实现)
- 针对OpenCV中IplImage类型中像素的操作
- 如何在word文档中添加附件
- python中一些常见的针对字符串的操作
- LS中针对存取控制权限acl的相关操作和判读(一)
- CruiseControl下載-安裝-配置
- C# 之DateTime输出时间格式大全
- Menu菜单设计技巧
- python与MYSQL学习
- Apache Commons Configuration 使用
- 针对文档中附件的操作(拆、挂、删)
- VC中edit控件使用
- 下载流媒体的好工具http://www.souxin.com/stream-software-down.htm
- 编程技巧:Java面向对象的排列组合算法
- 每天读一遍,不久你就会变!
- CSS 控制DIV及图片的宽度和高度
- C# 类和接口
- 使用JavaCV/OpenCV抓取并存储摄像头图像
- 一种很帅的设计方式