LOTUSSCRIPT/COM/OLE CLASSES
Dim session As New NotesSession Dim books As Variant
books = session.addressbooks Forall b In books If b.IsPrivateAddressBook Then Call b.open("","") If b.IsDirectoryCatalog Then Messagebox "Directory Catalog on Local" Else Messagebox "NAB on Local" End If Else Call b.open("", "") If b.IsDirectoryCatalog Then Messagebox "Directory Catalog on Server" Else Messagebox "NAB on Server" End If End If End Forall End Sub
See Also