次のスクリプトは、システム上で使用できる音の一覧を表示します。
Dim workspace As New NotesUIWorkspace
Dim tunes As Variant
tunes = workspace.GetListOfTunes()
Dim messagestring As String
Forall tunelist In tunes
messagestring = messagestring & tunelist & Chr(10)
End Forall
Messagebox messagestring
ほかの例については、[メール (6)] テンプレートの [(Calender Profile)] フォームと [(AlarmOptions)] サブフォームを参照してください。