.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsPublicAddressBook property
This agent displays the Domino Directory databases known to the current session.

Sub Initialize
 Dim session As New NotesSession
 Dim domdirs As String
 Forall db In session.AddressBooks
   Call db.open("", "") ' Must open database
   If db.IsPublicAddressBook Then
     domdirs = domdirs & db.Server & " " & _
     db.FilePath & Chr(13)
   End If
 End Forall
 If domdirs = "" Then domdirs = "None"
 Messagebox domdirs,, "Domino Directory databases"
End Sub

See Also