例: Save method (NotesACL - LotusScript®)

次のスクリプトは現在のデータベースの ACL に新規のロールを追加して、ACL を保存します。スクリプトが Save を呼び出さないときは、ロールは追加されません。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
Call acl.AddRole( "HR Contact" )
Call acl.Save
```
次のスクリプトはユーザーに対し、ユーザー名の入力を求めます。次のスクリプトは現在のデータベースの ACL にユーザーのエントリを新規作成して、[作成者] のアクセス権を与えます。スクリプトはユーザーに対し、ACL の変更の確認を求めます。ユーザーが [はい] を選択すると変更が保存されます。[いいえ] を選択したときは、変更は保存されません。
次のスクリプトで Messagebox 関数に関連する定数を使用するには、ファイル LSCONST.LSS をインクルードする必要があります。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Dim newName As String    
Dim confirm As Integer
Set db = session.CurrentDatabase
Set acl = db.ACL
newName = Inputbox$ _
( "Who do you want to add?", "Name" )    
Set entry = New NotesACLEntry _
( acl, newName, ACLLEVEL_AUTHOR )
confirm = Messagebox _
( "Are you sure?", MB_YESNO, "Confirm" )
If ( confirm = IDYES ) Then
  Call acl.Save
End If
```