.

HCLSoftware Business Partner
Domino Consulting Services
CRUCIAL Notes Tools
+1 212-599-2048

Domino Consulting Services
CRUCIAL Notes Tools
Domino administration
Notes development

Facebook Twitter YouTube
Chat now       
.
ProductsDownloadsNewsAbout usContact


Need a Domino Consultant? Call NotesMail +1 212-599-2048 - HCLSoftware Business Partner

LOTUSSCRIPT/COM/OLE CLASSES

Examples: PlayTune method
This example displays a list of sounds available on your system, then plays the user-specified sound.

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:"))

See Also