Schau dir in der Designer-Hilfe mal das 2.Beispiel zu GetSelectedText an. Das funktioniert.
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim text As String
Dim fieldName As String
fieldName = "Subject"
Set uidoc = workspace.CurrentDocument
text = uidoc.GetSelectedText(fieldName)
If text <> "" Then
If Not uidoc.EditMode Then uidoc.EditMode = True
Call uidoc.FieldSetText("Subject", text)
End If
End Sub
Wie ich bereits erwähnte, funktioniert dies bei mir nicht... (ND 7.0.1)