Ich hab das mit den Links mal so gelöst:
Dim workspace As New NotesUIWorkspace
Dim col As NotesDocumentCollection
Dim currServer As String
Dim currDatabase As String
Dim i As Integer
Dim rtDoclinks As NotesRichTextItem
Dim doc As NotesDocument
Dim uiDoc As NotesUIDocument
Dim linkDoc As NotesDocument
Dim linkTitle As String
Dim rtLinkStyle As NotesRichTextStyle
Dim session As New NotesSession
Set uiDoc = workspace.CurrentDocument
Set doc = workspace.CurrentDocument.Document
Set rtLinkStyle = session.CreateRichTextStyle
rtLinkStyle.FontSize = 8
rtLinkStyle.Bold = True
rtLinkStyle.NotesColor = COLOR_BLUE
currServer = GetCurrentServer
currDatabase = GetCurrentDatabasePath
Set col = workspace.PickListCollection(PICKLIST_CUSTOM, True, _
currServer, currDatabase, "DocLinks", "Insert Doclink", _
"Please select the Documents to be linked.")
If col.Count = 0 Then
Exit Sub
End If
Call uiDoc.Save 'Damit eventuelle Änderungen zuerst gespeichert werden
'Falls das RTF noch nicht existiert, zuerst erstellen
If doc.HasItem("Topic_Doclinks") = False Then
doc.CreateRichTextItem("Topic_Doclinks")
End If
Set rtDocLinks = doc.GetFirstItem("Topic_Doclinks")
If rtDocLinks.ValueLength > RT_NULL_POINT Then
Call rtDocLinks.AddNewline (1)
End If
For i = 1 To col.Count
Set linkDoc = col.GetNthDocument(i)
linkTitle = linkDoc.Topic_Title_EN(0) & " - " & linkDoc.Topic_Title_DE(0)
Call rtDocLinks.AppendDocLink(linkDoc, linkTitle)
Call rtDocLinks.AppendStyle (rtLinkStyle)
Call rtDocLinks.AppendText (" " & linkTitle)
If i < col.Count Then
Call rtDocLinks.AddNewline (1)
End If
Next i
Call ReOpen(doc, True) 'RT-Ändeurungen werden erst nach ReOpen sichtbar
Es sind dann aber entsprechend Doclinks und nicht Hyperlinks. Die Hyperlinks haben defaultmässig immer so einen hässlichen grünen Rahmen, den ich nicht prgrammatisch weggekriegt habe. :-\
Die Funktion ReOpen findest du hier irgendwo im Forum. Die ist vom Mitglied ata.