LOTUSSCRIPT /COM/OLE のクラス

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

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

関連項目