Hallo zusammen,
ich möchte einen Dokumenten Link in einem Rich Text Feld hinterlegen und bin am verzweifeln. Der Aufruf der Funktion appendDocLink:
Function appendDocLink(fieldName As String, value As NotesDocument)
Dim uiws As New NotesUIWorkspace
Dim rtItem As NotesRichTextItem
' fieldName ist der Name des Rich Text Lite Felds
Set rtItem = uiws.Currentdocument.Document.GetFirstItem(fieldName)
Call rtItem.AppendDocLink(value, "", "")
Call rtItem.Update()
End Function
--> Führt zu gar nichts!!! Was fehlt? Was mach ich falsch?
Danke