Examples: SignDatabaseWithServerID method

This code creates an administration request that is equivalent to selecting File - Database - Sign from the Administration client. It signs the customers.nsf database with the server ID of NE/Sales.

Sub Initialize
  Dim session As New NotesSession
  Dim adminp As NotesAdministrationProcess
  Set adminp = _
  noteid$ = adminp.SignDatabaseWithServerID("NE/Sales", _
  If noteid$<> "" Then
    Dim db As New NotesDatabase("NE/Sales", "admin4.nsf")
    Dim ws As New NotesUIWorkspace
    Call ws.EditDocument(False, db.GetDocumentByID(noteid$))
  End If
End Sub