例: PlayTune method

次の例は、システム上で使用できる音の一覧を表示し、ユーザーが指定した音を再生します。

Dim workspace As New NotesUIWorkspace
Dim tunes As Variant
tunes = workspace.GetListOfTunes()
Dim messagelist As String
Forall tunelist In tunes
  messagelist = messagelist & tunelist & Chr(10)
End Forall
Messagebox messagelist
Call workspace.PlayTune(Inputbox("Tune name:"))