Importieren von Bildern in Notes-Dokumente

[MatsBS]

Halloo allerseits,
Ich habe das Problem, dass unser Kunde cirka 600 Bilder (JPG) vom Dateisystem in unterschiedliche Dokumente in einer Lotus Notes Datenbank importiert haben möchte.

Ich kenne die FrontEnd Möglichkeiten (uidoc.Import("JPEG", "c:\ddd\aaa.jpg"), jedoch würde das bei so vielen Dokumenten nicht hinhauen.
Gibt es irgend eine Backend Möglichkeit für diesen Import?
Die Bilder müssen wirklich im Dokument angezeigt werden und nicht "angehängt".

Danke vielmals

[koehlerbv]

Stichworte für die Suche wären "Base64"(kodierte JPEGs), MIME und DXL. Es gibt hier bereits entsprechende Threads im Forum.

HTH,
Bernhard

[Grischu]

Dieses Script sollte funktionieren. Ist aber noch experimentell bei mir.  Also nicht in der Praxis getestet.....

Das Richtextfeld darf allerdings sonst nichts enthalten weil es quasi gelöscht und neu erstellt wird.

Code

Public Sub InsertJPG(file As String, d As NotesDocument, ItemName As String)
 
	Dim s As New NotesSession
	Dim rc As Variant
	Dim it  As NotesItem
	Dim jpeg As NotesMIMEEntity
	Dim stream As NotesStream
	Dim f_editmode As Boolean
	
	s.ConvertMIME=False
 
	Set it = d.GetFirstItem(Itemname)
	If Not it Is Nothing Then
		d.RemoveItem(Itemname)
	End If
	Set jpeg=d.CreateMIMEEntity(Itemname)
	Set stream=s.CreateStream()
	If (stream.open(file,"binary")) Then
		If (stream.Bytes>0) Then
			jpeg.setContentFromBytes stream, "image/jpeg", ENC_IDENTITY_BINARY
		End If
	End If
 
End Sub