在逛论坛的时候发现的,看到写的不错,故而摘抄了下来。希望大家共同努力!
注意:这个方法是将附件放到富文本中,然后再将富文本当做存储的介质,进行存取删的操作
取附件方法------------------------------------------
通过Notesdocument.EmabledObjects属性取得
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set db = New NotesDatabase( "SanFrancisco", "hill.nsf" )
Set view = db.GetView( "All Documents" )
Set doc = view.GetLastDocument
If doc.HasEmbedded Then
Forall o In doc.EmbeddedObjects
Messagebox( o.Name )
End Forall
Else
Messagebox "No embedded objects found"
End If
拆离方法-------------------
可以用NotesEmbeddedObject这个对象的ExtractFile方法
Dim doc As NotesDocument
Dim rtitem As Variant
Dim fileCount As Integer
Const MAX = 100000
fileCount = 0
'...set value of doc...
Set rtitem = doc.GetFirstItem( "Body" )
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:\reports\newfile" & Cstr(fileCount) )
Call o.Remove
Call doc.Save( True, True )
End If
End Forall
End If
再次上传附件方法-------
可使用Notesrichtextitem的EmbedObject方法上传
Dim session As New NotesSession
Dim db As NotesDatabase
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set db = session.CurrentDatabase
Set doc = New NotesDocument( db )
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject _
( EMBED_ATTACHMENT, "", "c:\jim.sam")
doc.Form = "Main Topic"
doc.Subject = "Here's Jim's document, as an attachment"
Call doc.Save( True, True )
分享到:
相关推荐
Lotus domino BS 多附件上传例子 Lotus domino jquery附件上传 经典完整例子,全部源码,使用在多个项目中,请放心下载。
lotus domino附件开发--批量下载附件
lotus domino附件开发--附件删除
lotus domino附件开发--附件批量放到一个文档
lotus domino附件开发--上传附件代理
lotus domino附件开发--java下载和删除附件
lotus domino附件开发--java\ls获取所有附件
lotus domino附件开发--java操作附件curd.java
lotus domino附件开发--ls/java判断附件存在
lotus Domino 开发 富域插入附件和圖片
lotus domino附件开发--bs附件地址
lotus domino附件开发--bs显示附件
lotus domino附件开发--CS上传附件
通过页面增加上传控件, 可实现多附件上传。
lotus domino附件开发--ls获取domino安装路径
lotus domino附件开发--文档下载一个附件
lotus domino附件开发--富域插入附件和圖片
IBM Lotus Domino 安装与配置 包括: Domino Server配制文档 Domino服务器以及Notes客户端重新配置的方法 IBM Lotus Domino和Notes 6.5培训教程 Lotus Domino7.0安装、设置图解
lotus domino附件开发--只显示附件为图片的内容
可以浏览和导出所有文档,可以分离导出其中的附件和RTF域中图片等信息。非常适合企业从旧的Lotus系统往新的信息系统转移数据文档之用。 本版软件适用于Domino6以上版本的环境,如果您的Domino版本低于此,可向我们...