Examples: GetListOfTunes method

This script displays a list of sounds available on your system.

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

For another example, please refer to the Alarms Dialog subform and the Calendar Profile form of the Mail template.