Hallo und Willkommen,
Kleine Frage.
Wo befindet sich der Button? (in einer Ansicht oder im Dokument)
Dim uiws As New NotesUIWorkspace
Dim uidocCur As NotesUIDocument
Dim uidocNew As NotesUIDocument
Dim docCur As NotesDocument
Dim docNew As NotesDocument
Dim rtLink As NotesRichTextItem
Set uidocCur = uiws.CurrentDocument
Set docCur = uidocCur.Document
Set docNew = New NotesDocument(docCur.ParentDatabase)
docNew.Form = "Dein Maskenname"
Set rtLink = New NotesRichTextItem(docNew, "DcLink")
Call rtLink.AppendDocLink(docCur, "Link zur Source", "")
Set uidocNew = uiws.EditDocument(True, docNew)
Beispiel ist ohne Fehlerbehandlung und unter der Voraussetzung, dass der Button sich im Dokument bzw. in der ActionBar des aktuellen Dokumentes befindet.
Andreas
Interessantes Verhalten, kannte ich bisher noch nicht, allerdings kann ich dir sagen, wie man solche Felder erzeugen kann:
Dazu braucht man ein temporäres Antwortdokument von dem man sich das $REF-Feld herauskopiert:
Dim tmpDoc As New NotesDocument(db)
Call tmpDoc.MakeResponse(linkToDoc)
Dim refItem As NotesItem
Set refItem = tmpDoc.getFirstItem("$REF")
Call refItem.CopyItemToDocument(ws.CurrentDocument.Document,, "TestLink")
(allerdings nur, wenn das Dokument nicht im UI geöffnet ist)
Gruß
Roland
/edit:
Hier hätte ich noch was für den OP: http://www.qtzar.com/blogs/qtzar.nsf/d6plinks/DSLH-7NRK85
Geht aber erst ab 8.5! Neben dem Weg über die Zwischenablage ist dies die einzig (einigermaßen) saubere Möglichkeit, die ich kenne, ein RT-Feld im UI ohne Reopen zu ändern.