The following LotusScript code will show a prompt to users attempting to open a Lotus Notes database in a server that is not supposed to be opened, and automatically redirect them to the new server. The code should be placed in the PostOpen event of the Lotus Notes Database.   Sub Postopen(Source As Notesuidatabase) Dim ws

Read more…

Follows a simple LotusScript function that will embed a file system picture (strFilePath As String) into the Body RichText field of a Notes document (doc As NotesDocument). This will not embed as an icon, but as the image itself. Function EmbedPictureIntoRichText(doc As NotesDocument, strFilePath As String) As Boolean EmbedPictureIntoRichText = False Dim session As New

Read more…