Wenns DXL sein darf, müsste es in Etwa wie Folgt gehen:
Zuerst musst du ein Dokument in der DB erstellen + speichern, dann wie Folgt das RT-Item erstelen:
Folgendes in einen Stream schreiben
call stream.writeText(|
<?xml version="1.0" encoding="UTF-8"?>
<document xmlns="
http://www.lotus.com/dxl"replicaid="
ReplicaID der DB" version="6.5">
<noteinfo unid="
UNID des Dokumentes"/>
<item name="
Name des Items">
<richtext>
<pardef id="1"/>
<par def="1">
<picture width="800px" height="600px">
<imageref name="
Ressoucenname"/>
</picture>
</par>
</richtext>
</item>
</document>
|)
Dann das Ganze so importieren:
Dim importer As NotesDXLImporter
Set importer = sess.CreateDXLimporter
importer.DocumentImportOption = DXLIMPORTOPTION_UPDATE_ELSE_CREATE
call importer.process(stream, sess.currentDatabase)