Attachments in RichText-Feld

[FrankLU]

Hallo!

Wenn ich in einem maskenfeld eine RTI habe, dann kann ich ja über Datei - Anhängen... oder über die "Büroklammer" in der Symbolleiste ein Attachement einfügen. Das sieht dann auch ganz nett aus. Das klappt aber nur, wenn ich im Edit-Modus bin und der Cursor im RTI steht.

Nun habe ich ein Script geschrieben, dass mir ebenfalls ein (weiteres) Item in das RTI schreibt. Allerdings sieht das doof aus. Richtig funktionieren tut es auch nur, wenn ich im Ansichts-Modus bin. Bin ich im Edit-Modus und führe das Script aus, so wird das (neue) Attachment nicht in das dafür vorgesehene Maskenfeld geschoben, sondern außerhalb der Maske "unter der schwarzen Linie".

Frage 1: Wie bekomme ich es hin, dass das Scribt in jedem doc-Modus funktioniert?
Frage 2: Wie macht die Büroklammer es, dass "ihre" Attachements so schön aussehen. Ich will das auch für mein Script *trotz*.

Nachfolgend noch das Script

Code

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesuiDocument
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim anhang As NotesEmbeddedObject
	Dim rtitem As NotesRichTextItem
	Dim doc As NotesDocument  'Stammakte
	
	Dim DateiNamen As Variant
	
	Set db = session.CurrentDatabase
	Set ws = New NotesUIWorkspace
	Set uidoc = ws.CurrentDocument	
	Set doc = uidoc.Document
	
	If doc.HasEmbedded = True Then
		Set rtitem = doc.GetFirstItem( "PatScan" )
	Else
		Set rtitem = New NotesRichTextItem( doc, "PatScan" )
	End If
	
	DateiNamen = ws.OpenFileDialog( True, "Gescannte Dokumente", "*.pdf", "H:\" )
	
	If  Isempty(DateiNamen)  Then
		Exit Sub
	End If
	
	Forall Datei In DateiNamen
		Set anhang = rtitem.EmbedObject( EMBED_ATTACHMENT, "", Datei )
'		Kill Datei
	End Forall
	
	Call doc.Save( True, False )
End Sub

Zum Anhang: Kopie (6) wurde über die Büroklammer eingefügt, Kopie (7) über mein Script

Danke im voraus - Frank

[ata]

... damit die Attachments so schön aussehen gibt es nur den Edit-Modus - aus dem Backend heraus sieht das immer so aus.

... das Attachment hängt unter dem Dokument, da du das Feld im Backend einfügst. Wenn es das Feld in der Maske bereits gibt wird das Attachment im Feld dargestellt...

Toni