RichText mehrere Doclinks anhängen

[Heiko]

Hallo zusammen,

ich möchte in ein RichText-Feld mehrere Doclinks einfügen.
Hab mir das wie folgt gedacht (Codeschnipsel):

Code

If rtitem Is Nothing Then
   Set rtItem = New NotesRichtextitem(backdoc, "ADUserLnk" )
Else
   Set rtitem = backdoc.GetFirstItem("ADUserLnk")	
End If		
Call rtitem.AppendDocLink( doc, db.title)

Der Docklink wird jedoch jedes mal überschrieben, wenn der Button das zweite mal gedrückt wird. Sprich, mein Else-Zweig zieht gar nicht.

Freue mich über jede Hilfe.

Heiko

[Peter Klett]

Hast Du mal versucht, rtitem global zu definieren?

[koehlerbv]

Das globale Definieren wird nichts nützen. Ich vermute, dass das ganze im Frontend passiert und nach dem DocLink-Anhängen nicht gespeichert wird. Damit bleibt aus dem Frontend das RTI leer, so dass immer der erste Zweig durchlaufen wird.

Das nur so als Tipp ins Blaue. Heiko kann dazu mehr sagen.

Bernhard

[Peter Klett]

naja, uidoc und backdoc müssten dann sicher auch global definiert werden, damit die nicht mit Betätigen der Schaltfläche neu initialisiert werden.

Da Heiko schreibt, dass der Link immer wieder überschrieben wird, scheint es zumindest beim ersten Klick zu funktionieren, dass das Richtextitem im Frontend (also sichtbar) verändert wird.

[koehlerbv]

Ich sag ja: Nicht verzagen, Heiko fragen! 

Hilsen til Norge,
Bernhard

[Heiko]

@Bernhard
Richtig vermutet, der Button ist natürlich im Frontend 

Speichern und wieder öffnen mache ich. Muss ich ja, damit die Geschichte überhaupt funktioniert.

@Peter
Das globale Definieren hat leider nicht geholfen.
Wenn ich jetzt den Code poste und mich somit als "Cosmosianer" oute muss ich natürlich die Gelegenheit nutzen, und dem "Erfinder ein herzliches Hallo" sagen wie der Zufall so spielt...

Code

Sub Click(Source As Button)
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument   
	Set uidoc = ws.currentdocument
	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim col As NotesDocumentCollection
	Dim doc As NotesDocument
	Dim backdoc As NotesDocument
	Dim rtitem As NotesRichTextItem
	Set db = s.CurrentDatabase
	Set backdoc = uidoc.document
	Set col = ws.PickListCollection(1,True,"YK000700S700","Cosmos\\Auftrag\\personal.nsf","0. UVB\alle\nach Dokumentart","Personalaufträge","Wählen Sie ein Dokument")
	
	If col.Count = 0 Then
		Msgbox ("Sie haben kein Dokument ausgewählt")
		Exit Sub
	End If
	
	Set doc = col.getfirstdocument
	
	If rtitem Is Nothing Then
		Set rtItem = New NotesRichtextitem(backdoc, "vb_ADUserLnk_3" )
	Else
		Set rtitem = backdoc.GetFirstItem("vb_ADUserLnk_1")	
	End If		
	
	Call rtitem.AppendDocLink( doc, db.title)
	
	REM Das aktuelle Dokument schließen und wieder öffnen...
	Call ReOpen(backdoc)
	
End Sub

Heiko

[Peter Klett]

ja, die Welt ist klein ...

M.E. fehlt das Initialisieren des rtitem

Set rtitem = backdoc.GetFirstItem("vb_ADUserLnk_1")   
If rtitem Is Nothing Then
   Set rtItem = New NotesRichtextitem(backdoc, "vb_ADUserLnk_3" ) (-> wieso 3? Müsste 1 sein!)
End If

[Heiko]

That's it!

   ^{Set rtItem = New NotesRichtextitem(backdoc, "vb_ADUserLnk_3" ) (-> wieso 3? Müsste 1 sein)}
natürlich _1 - kam vom vielen hin und her kopieren.

Vielen Dank und schönen Tag
Heiko