Link do dokumentu w polu Rich Text
Wpis dotyczy Lotus Script i dokumentów w Lotus Notes.
-
Dim dokument_z_linkiem As NotesDocument
-
Dim dokument_linkowany As NotesDocument 'może być też NotesDatabase lub NotesView
-
Dim rtItem As NotesRichTextItem
-
Set rtItem = New NotesRichTextItem( dokument_z_linkiem, „Nazwa_Pola_RichText” )
-
Call rtItem.AppendDocLink( dokument_linkowany, „komentarz_po_najechaniu_mysza” )
-
Call rtItem.Update()
Długo się męczyłem z tym badziewiem wszystko niby zgodnie z pomocą i znalezionymi setkami tutoriali i wpisów na forach, aczkolwiek …
Link się ciągle nie wyświetlał dopóki nie dopisałem linii 6 – czyli Update() – o czym nie wspominała ani wbudowana pomoc ani pomocni ludzie z internetu :)