DOMINO 附件拆分
domino 中关于附件的部分确实很伤,noteitem对象中貌似没有关于java文件流的处理,只好采用折中的方法,先拆分,后上传,估计IO够呛。
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0
Set db = session.Currentdatabase
Set dc= db.Unprocesseddocuments()
Set doc = dc.Getfirstdocument()
'''''''''''''''''''''''''''''
If Not attdoc Is Nothing Then
Dim rtitem As NotesRichTextItem
Dim obj As NotesEmbeddedObject
Dim fileCount As Integer
filecount=0
tt=Evaluate("@AttachmentNames",attdoc)
For j=0 To UBound(tt)
Set obj=attdoc.Getattachment(tt(j))
If Not obj Is Nothing Then
obj.Extractfile("d:\fw\"+obj.Name)
End If
Next
End If
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
%REM
步骤一: 先将选中的文档的附件进行拆分,放入指定位置
%END REM
Set rtitem = doc.Getfirstitem("attachement")
If ( rtitem.Type = RICHTEXT ) Then
ForAll o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) _
And ( o.FileSize > MAX ) Then
fileCount = fileCount + 1
Call o.ExtractFile _
( "c:\newfile" & CStr(fileCount) )
Call doc.Save( True, True )
End If
End ForAll
End If
%REM
步骤二:新建文档,并上传附件
%END REM
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem(doc, "attachement" )
While(fileCount)
Set object = rtitem.EmbedObject(EMBED_OBJECT, "", "c:\newfile" & CStr(fileCount))
fileCount = fileCount - 1
Wend
doc.Form = "Attachement"
doc.Subject ="Here's Jim's document, as an embedded object"
Call doc.Save( True, True )
end sub
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- leetcode树之相同的树
- 1. 两数之和
- 突击并发编程JUC系列-原子更新字段类AtomicStampedReference
- 去除字符数组中指定的字符
- Android——Android Studio开发环境搭建及设置本地Gradle方法
- Java——类集框架:List集合接口的详解及应用举例
- Android——NORDIC nRF5x系列 DFU升级 APP实现
- Java——集合工具类(Collections工具类、Stack子类)
- Android——RecyclerView自定义OnScrollListener实现下拉刷新监听,上拉加载更多功能
- Java——类集框架:Map集合的详解及应用举例
- Java——类集框架:Set集合接口的详解及应用举例
- 如何有效地进行代码 Review?
- Java——对象序列化
- Android——MPAndroidChart折线图/柱状图/饼形图的使用
- Java——对String类型的时间进行加减操作