How do I use LotusScript in C / S to insert pictures on a database resource in the RichText domain?

redbanana

How do I use LotusScript in C / S to insert pictures on a database resource in the RichText domain?

Import external files with IMPORT, but there is no way to import the image in the database resource.

donkeyking68

To make a clear point, what is the structure, how to import, or there is no way to help you.

dzyutao

Sub initialize
ON Error Goto Errhandle
DIM SS AS New Notesession
DIM DB AS NotesDatabaseDoase
DIM NC AS NotesNotecollection
DIM Noteid As String
Dim Docimage as NotesDocument
DIM Item As NotesItem
DIM IMG AS STRING
DIM Context As NotesDocument
DIM IMGITEM AS NotesItem
DIM Count As Integer

COUNT = 0
Set context = ss.documentContext
Set imgitem = context.getfirstItem ("imagelist")
SET DB = SS.CURRENTDATABASE
Set nc = db.createnotecollection (false)
Call nc.selectallformateLements (false)
nc.selectimageresources = TRUE
Call nc.buildcollection

Noteid = nc.getfirstnoteid
Do While Not Noteid = "" "
Count = count + 1
SET DOCIMAGE = db.getDocumentByid (Noteid)
IMG = DOCIMAGE.GETITEMVALUE ("$ TITLE") (0)
Call Imgitem.AppendtotextList ("Image" + CSTR (COUNT) + "| + IMG)
Noteid = nc.getNextNoteid (Noteid)
Loop
EXIT SUB
Errhandle:
Print Error $
Print Erl ()
End Sub