LotusScript programming design from view to attachment files

zhaozj2021-02-16  99

Sub Click (Source As Button) --- Dim Session As New Notesession - 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) "------- -------- Call K.extractfile ("C: / Temp /" & k.Name) ------------ End IF

-------- End Fort -------------------- END IF ---- SET DOC2 = DC.getNextDocument. DOC) ---- SET DOC = DOC2 --- Wend

End Sub

转载请注明原文地址:https://www.9cbs.com/read-11544.html

New Post(0)