LOTUSSCRIPT /COM/OLE のクラス


例:IsGroup プロパティ
次のスクリプトは、エントリがグループエントリかどうかを調べます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry("Luscious Bao")
If entry.IsGroup Then
 Messagebox entry.Name & " is a group."
Else
 Messagebox entry.Name & " is not a group."
End If
Call acl.Save

関連項目