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