Es geht so:
Überall wo das Bild sonst noch erscheinem soll, machst Du ein berechnetes Rich Text Feld. Die Formel für das Richtext Feld muss den Feldnamen des Richtext Feldes beinhalten, in das das Bild eingefügt wird.
Im Postsave dann sowas:
Sub Postsave(Source As Notesuidocument)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim item As NotesItem
Set uidoc = ws.CurrentDocument
Set doc = Source.Document
If doc.Flag(0) = "1" Then
Do While doc.HasItem( "Bild2" )
Set item = doc.GetFirstItem( "Bild2" )
Call item.Remove
Call doc.Save( True, True, True )
Loop
Do While doc.HasItem( "Bild3" )
Set item = doc.GetFirstItem( "Bild3" )
Call item.Remove
Call doc.Save( True, True, True )
Loop
doc.Flag = ""
doc.SaveOptions = "0"
Call doc.Save( True, True, True )
Call uidoc.Close
Call ws.EditDocument( True, doc )
End If
End Sub
Du musst dann dafür sorgen, dass das Dokument nach dem Einfügen des Bildes gespeichert wird. Daher würde ich einen Button machen, mit dem man
1. das Bild wählt
2. das Bild importiert
3. ein Flag setzt und
3. das Dokument speichert.
Im Postopen dann das SaveOptions Item löschen, sofern vorhanden.
Andreas