LOTUSSCRIPT/COM/OLE CLASSES
Private Sub ServerName_Click() Dim s As New NotesSession s.Initialize If s.ServerName <> Null Then MsgBox s.ServerName, , "ServerName" Else MsgBox "Running on a client", , "Not a server" End If End Sub
See Also