LOTUSSCRIPT /COM/OLE のクラス

例:IsPublicAddressBook プロパティ
次のエージェントは、現在のセッションに認識されている Domino ディレクトリデータベースを表示します。

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

関連項目