例: SetServerDirectoryAssistanceSettings method

次のコードは、casco/bay サーバーのディレクトリアシスタントデータベースとして、da.nsf ディレクトリアシスタントデータベース (da50.ntf テンプレートに基づいて) を追加する要求を作成します。

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