LOTUSSCRIPT/COM/OLE CLASSES
Examples: SetServerDirectoryAssistanceSettings method
This code creates a request to add the da.nsf directory assistance database (based on the da50.ntf template) as the directory assistance database for the casco/bay server.

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

See Also