LOTUSSCRIPT /COM/OLE のクラス

例:IsPrivateAddressBook プロパティ
次のエージェントは、現在のセッションに認識されている個人アドレス帳を表示します。

Sub Initialize
 Dim session As New NotesSession
 Dim privates As String
 Forall db In session.AddressBooks
   Call db.open("", "") ' Must open database
   If db.IsPrivateAddressBook Then
     privates = privates & db.Server & " " & _
     db.FilePath & Chr(13)
   End If
 End Forall
 If privates = "" Then privates = "None"
 Messagebox privates,, "Personal Address Book databases"
End Sub

関連項目