从视图引出附件文件的LOTUSSCRIPT程序设计


Sub Click(Source As Button)
---Dim session As New notessession
-- Dim db As notesdatabase
---Dim dc As notesdocument.ollection
---Dim doc As notesdocument. ---Dim doc2 As notesdocument. ---Dim item As notesitem
---Set db= session.currentdatabase
---Set dc=db.alldocument.
---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

阅读更多
文章标签: button session c
个人分类: Lotus Domino
想对作者说点什么? 我来说一句

LotusScript中文帮助文档

2010年08月31日 4.63MB 下载

没有更多推荐了,返回首页

不良信息举报

从视图引出附件文件的LOTUSSCRIPT程序设计

最多只允许输入30个字

加入CSDN,享受更精准的内容推荐,与500万程序员共同成长!
关闭
关闭