LOTUSSCRIPT /COM/OLE のクラス
例:UserType プロパティ
1. 次のコードがフォームの [Onload] イベントに追加された場合、新規の文書を作成するときに Mary Ann Admin の ACL のユーザーの種類が [ユーザー] に設定されます。
Sub Onload(Source As Notesuidocument)
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("Mary Ann Admin/East/ACME")
If Not (entry Is Nothing) Then
entry.UserType = ACLTYPE_PERSON
Call acl.Save()
End If
End Sub
2. 次のコードが同じフォームの [Onunload] イベントに追加された場合、フォームを閉じるときにメッセージボックスに「Mary Ann Admin has a user type of Person」と表示されます。
Sub Onunload(Source As Notesuidocument, Continue As Variant)
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("Mary Ann Admin/East/ACME")
If (entry.UserType = ACLTYPE_PERSON) Then
Messagebox "Mary Ann Admin has a user type of Person" _
,,"User type"
End If
End Sub
関連項目
UserType プロパティ
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集