Juhuuu, hab es hinbekommen !!!!
"Erstellen" -> "Objekt..." -> "Steuerelement" im Auswahlfeld "Objekttyp:" "Macromedia Flash Paper" auswählen.
Nun im "Postopen" Ereignis der Maske folgenden Code einfügen:
Dim FlashObject As Variant
Set FlashObject = Source.GetObject("Shockwave Flash Object")
FlashObject.Movie = "C:\test.swf"
Call FlashObject.Play
... wobei natürlich der Pfad zu dem Film dementsprechend angepasst werden muß!
... die "notesuidocument.GetObject" Methode erwartet den Namen des Objektes, wenn Ihr also den Namen ändert, muß das natürlich auch angepasst werden.
Läuft bei mir super, Client 6.5.3, Flash 7
Um die Fläche zu sehen, die der Flash Film einnimmt, setzte die Hintergrundfarbe der Maske mal auf irgendwas außer die des Flashfilmes und der Farbe Weiss.
Du kannst mit folgendem Code mal checken, ob der Film zumindest geladen wurde:
Dim temp as Variant
On Error Resume Next
temp = FlashObject.TotalFrames
if temp = "" Then
Print "Film nicht geladen"
Else
Print "Film geladen"
End If
Eignet sich übrigens auch super dafür um unter Notes zu testen, ob Flash überhaupt installiert ist. Ich setze so z.B. ein Feld auf 0 oder 1 und verstecke dann dementsprechend das Flash Feld oder zeige die Url von Macromedia zur Installation des Flash Plugins an.