I initially reported this problem in August'14. For the moment the only solution I found is to replace the code
Call NotesRichtTextItem.AppendDocLink( notesdocument , "Click here" )
with
Call NotesRichtTextItem.Appendtext( NotesDocument.NotesURL)
Hope this helps.
Regards
Daniel