Domino 9 und frühere Versionen > ND6: Entwicklung

Doclink in UIDoc einfügen

<< < (2/2)

Axel:
Hi,

versuch's mal so:

...
Set newdoc = New NotesDocument ( db )
newdoc.form = "eintrag"
     
Set rtitem = New NotesRichTextItem( newdoc, "followup" )
Call rtitem.AppendDocLink( doc, "Link auf Vorgänger" )

Call newdoc.Save(True,False)  'Temp. Speichern des Backend-Doc. damit RTF-Feld angezeigt wird.

Dim workspace As New NotesUIWorkspace   
   
Call uidoc = workspace.EditDocument(True, newdoc)  'Dokument im Frontend öffnen
Call uidoc.Refresh(True)
Call newdoc.Remove(True)  'Das Dokument, das im Backend erstellt wurde, löschen
   
Axel

ArcTan:
Klasse, funktioniert  :)
Auf die Idee wäre ich ja nicht gekommen...

Mit der kleinen Verbesserung in der Zeile

Call uidoc = workspace.EditDocument(True, newdoc)  'Dokument im Frontend öffnen

aus dem "Call" ein "Set" zu machen, läufts.

Vielen Dank

Gruß
ArcTan

Axel:
Sorry, war ein Tippfehler  :-\

Axel

Navigation

[0] Themen-Index

[*] Vorherige Sete