从视图引出附件文件的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