壹佰网|ERP100 - 企业信息化知识门户

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 2903|回复: 13

[Domino C/S开发] 使用LotusScript来拆离数据库中的所有文档的附件

[复制链接]
发表于 2003/8/5 15:37:01 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。如果您注册时有任何问题请联系客服QQ: 83569622  。

您需要 登录 才可以下载或查看,没有帐号?注册

x
将下列程序放在视图/文件夹的操作按钮中(不要放在文档中),运行后可以将文档中"body"域的附件拆离到"c:\temp"目录下。
Sub Click(Source As Button)
---Dim session As New notessession
-- Dim db As notesdatabase
---Dim dc As notesdocumentcollection
---Dim doc As notesdocument
---Dim doc2 As notesdocument
---Dim item As notesitem
---Set db= session.currentdatabase
---Set dc=db.alldocuments
---Dim rtitem As notesrichtextitem

---Set doc=dc.getfirstdocument
---Set doc2=doc
---While Not (doc2 Is Nothing)
---- Set rtitem=doc2.getfirstitem("Body")
---- Call doc2.save(True,False)
---- If (RTITEM.TYPE=RICHTEXT) Then
--------Forall k In rtitem.embeddedobjects
------------If (k.type=embed_attachment) Then
----------------Call k.extractfile("c:\temp\" & k.Name )
------------End If

--------End Forall
--------Call doc2.save(True, True)
---- End If
---- Set doc2=dc.getnextdocument(doc)
---- Set doc=doc2
---Wend

End Sub



发表于 2003/8/5 15:56:27 | 显示全部楼层
 楼主| 发表于 2003/8/6 09:18:15 | 显示全部楼层
thx
发表于 2003/8/19 10:32:56 | 显示全部楼层
Very 不错
发表于 2003/8/19 12:08:05 | 显示全部楼层
发表于 2003/9/25 08:51:23 | 显示全部楼层
我喜欢   多来点儿
/鼓掌
发表于 2003/9/26 10:51:45 | 显示全部楼层
收藏!
发表于 2003/9/27 17:57:39 | 显示全部楼层
收藏!
发表于 2003/10/17 08:49:41 | 显示全部楼层
强!!
发表于 2004/4/15 16:46:18 | 显示全部楼层
/鼓掌
发表于 2004/12/28 22:05:20 | 显示全部楼层
xiexie.........


发表于 2005/5/26 09:04:05 | 显示全部楼层
请问用户浏览时如何读取附件?   谢谢!
发表于 2005/6/1 08:29:42 | 显示全部楼层
是將資料庫所有附加檔放在本庫之外嗎?那用戶如何瀏覽附加檔?請回信﹗﹗﹗謝謝﹗﹗﹗
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|小黑屋|手机版|壹佰网 ERP100 ( 京ICP备19053597号-2 )

Copyright © 2005-2012 北京海之大网络技术有限责任公司 服务器托管由互联互通
手机:13911575376
网站技术点击发送消息给对方83569622   广告&合作 点击发送消息给对方27675401   点击发送消息给对方634043306   咨询及人才点击发送消息给对方138011526

GMT+8, 2025/11/29 01:11 , Processed in 0.016325 second(s), 16 queries , File On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表