Lotusscript - Creating Hotspots

Your question is almost identical to this one:
https://www.experts-exchange.com/questions/27378330/Insert-a-hyperlink-to-a-file-not-a-URL.html

Yes, but almost doesn't count... ;)

What I need exactly, first part, user will click on a button to open directory, user will browse for the file, the file path will be returned as a string array. (this part is done already).

Second part is, via Lotusscript, I need to convert the file path into a hotspot link and insert it into a Rich Text Field. (this is what I'm struggling with).

Here's the code I wrote based on your recommendation:
----------------------------------------
Sub Click(Source As Button)
   Dim sesSe As New NotesSession
   Dim uiSpace As New NotesUIWorkspace
   Dim uidDoc As NotesUIDocument
   Dim srcDoc As NotesDocument
   Dim rtfStyle As NotesRichTextStyle
   Dim rtfLinks As NotesRichTextItem
      
   Set uidDoc = uiSpace.CurrentDocument
   Set srcDoc = uidDoc.Document
   Set rtfStyle = sesSe.CreateRichTextStyle
   Set rtfLinks = srcDoc.GetFirstItem("Untitled")

   strLink$ = "<a id='myLink' href='file://" + uidDoc.FieldGetText("Untitled3") + "'>" + _ uidDoc.FieldGetText("Untitled2") + "</a></body></html>"

   rtfStyle.PassThruHTML = True
   Call rtfLinks.AppendStyle(rtfStyle)
   Call rtfLinks.AppendText(strLink$)
   Call srcDoc.Save(True, False)
   Call uidDoc.Reload
End Sub
----------------------------------------

I click the button after I save the document, and the debugger runs nicely without problems, but nothing is happening. the Untitled field is Rich Text, and is set to Store contents as HTML and MIME.

Any idea's ?

For the sake of testing I changed the code to this:
-------------------------------------------------
Sub Click(Source As Button)
   Dim sesSe As New NotesSession
   Dim uiSpace As New NotesUIWorkspace
   Dim uidDoc As NotesUIDocument
   Dim srcDoc As NotesDocument
   Dim rtfStyle As NotesRichTextStyle
   Dim rtfLinks As NotesRichTextItem
      
   Set uidDoc = uiSpace.CurrentDocument
   Set srcDoc = uidDoc.Document
   Set rtfStyle = sesSe.CreateRichTextStyle
   Set rtfLinks = srcDoc.GetFirstItem("Untitled")
      
   strLink$ = "<a id='myLink' href='file://c:\foo.html'>Just a file to open</a>"

   rtfStyle.Bold = True
   rtfStyle.NotesColor = COLOR_GREEN
   rtfStyle.PassThruHTML = True
   rtfStyle.Underline = True

   Call rtfLinks.AppendStyle(rtfStyle)
   Call rtfLinks.AppendText(strLink$)
   Call srcDoc.Save(True, False)
   Call uidDoc.Reload
End Sub
-------------------------------------------------
What am I doing wrong ?
Cheers

I remember the days when I used to get an answer in less than 5 minutes, and I kept my subscription for a long time without using it, just wanted to really support the site. Anyway, this question also is not answered, but I'll accept sjef_bosman answer for the points, and sorry to say that I'll just cancel my membership here.

Wish you all the best.

I hope you know that the Experts at EE are just volunteers. There's nothing for us here, no dollars, except maybe some glory plus the satisfaction when we can successfully help someone out.

Anyway, I was mistaken about the passthru-html stuff. Please have a look at the NotesRichTextDocLink class. There's a document in the Help database called "Working with doclinks in LotusScript classes". It seems necessary to create a doclink first, using AppendDocLink, before you can turn it into a hotspot.

Sorry that I had to go shopping in order to have some supper...