как сделать так, чтобы линки в Rtf открывались в текущем окне

Sub Postopen(Source As Notesuidocument)
Dim s As New NotesSession
Dim thysdb As NotesDatabase
Dim uiw As New NotesUIWorkspace
Dim thysdoc As NotesDocument
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
 
Set thysdb=s.CurrentDatabase
Set thysdoc=Source.Document
 
prevdocunid$=s.GetEnvironmentString("DiscussDocUNID")
 
If prevdocunid$<>"" Then
Set doc=thysdb.GetDocumentByUNID(prevdocunid$)
If thysdoc.UniversalID=prevdocunid$ Then
UNID этого документа равен prevdocunid$
Call s.SetEnvironmentVar("DiscussDocUNID", "")
Exit Sub
End If
If s.GetEnvironmentValue("DiscussSem")="" Then
Ставлю "семафор"
Call s.SetEnvironmentVar("DiscussSem", "1")
Set uidoc=uiw.EditDocument(False, doc, False, , True, False)
uidoc.Close
Call s.SetEnvironmentVar("DiscussSem", "")
End If
End If
Call s.SetEnvironmentVar("DiscussDocUNID", thysdoc.UniversalID)
Call s.SetEnvironmentVar("DiscussSem", "")
End Sub

Set uidoc = ws.CurrentDocument Это тот докумет из которого ты открывашь новый и который потом нужно закрыть.
 
Set uiNewDoc = ws.EditDocument(True, newdoc) newdoc - этот notesdocument который ты собираешься открыть, как ты его получаешь - твое дело
 
On Event PostOpen From uiNewDoc Call uidocClose

Sub uidocClose(someVar as Variant)
Set uidoc = ws.CurrentDocument
uidoc.close
End Sub