Ich habe diese Aktion mit mehreren WAV Dateien gemacht. Diese Dateien werden ins \\data\tune Verzeichnis eingefügt, und dann im Memo folgenden Code in Postopen einfügen(Notes Version 5):
Sub Postopen(Source As Notesuidocument)
If Not Source.IsNewDoc Then ' nicht bei neuen Mails
Dim s As New NotesSession
Dim sounds List As String
Dim i, zaehler As Integer
Dim soundDir, soundNeu, soundDatei As String
soundDir ="C:\Notes\data\tune\" ' den Pfad kann man auch relativ machen
soundDatei = Dir$(soundDir & "*.wav", 0)
Do While soundDatei <> ""
sounds(zaehler) = soundDatei
soundDatei = Dir$()
zaehler = zaehler + 1
Loop
Randomize ' den Generator anschmeissen
i = Cint(Rnd() * zaehler) ' random Zahl erzeugen
neueSound = sounds(i)
Call s.SetEnvironmentVar ("Incoming Mail Sound", soundDir & neueSound,True)
End If
End Sub
gruss