使用LotusScript来拆离数据库中的所有文档的附件

icerain_1 · 发表于 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

DIRL · 发表于 2003/8/5 15:56:27

icerain_1 · 发表于 2003/8/6 09:18:15

chenybin · 发表于 2003/8/19 10:32:56

Very 不错

ewen · 发表于 2003/8/19 12:08:05

zhengyanli6 · 发表于 2003/9/25 08:51:23

我喜欢多来点儿
/鼓掌

bbqgame · 发表于 2003/9/26 10:51:45

收藏！

wintellzbh · 发表于 2003/9/27 17:57:39

收藏！

mylove_1 · 发表于 2003/10/17 08:49:41

强！！

feihu_vxv · 发表于 2004/4/15 16:46:18

/鼓掌

SunnyLWang · 发表于 2004/12/28 22:05:20

xiexie.........

ly · 发表于 2005/5/26 09:04:05

请问用户浏览时如何读取附件? 谢谢！

ly · 发表于 2005/6/1 08:29:42

是將資料庫所有附加檔放在本庫之外嗎?那用戶如何瀏覽附加檔?請回信﹗﹗﹗謝謝﹗﹗﹗

帐号		自动登录	找回密码
密码			注册

社区人物壹佰网重点话题	分享知识原创连载活动正式启动已有673人参加查看全部会员靓照旅行分享文学连载	壹佰读书会开始招收成员了
招聘求职壹佰网信息化选型平台	倾听用户的心声纵横四海谈IT如何提升企业管理管理小说连载《苏州桥》	如何获取努力值
原创连载－我来管管看 ERP分享+	推荐连载：[已结帖][分享知识原创连载]财务供应链项目新手实施手记：记录自己正	入门学习-致所有初学者

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

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

浏览过的版块

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

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

浏览过的版块

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