如何获得MediaPlayer_complete事件在outlook自定义的形式

Question

我使用以下代码自定义的形式:

Dim MediaPlayer
Set oMediaPlayer = CreateObject("WMPlayer.OCX.7")
oMediaPlayer.settings.volume = 100
MediaPlayer.controls.stop()
MediaPlayer.settings.autoStart = false
MediaPlayer.URL = strWavFile
MediaPlayer.controls.play()

我想知道音乐什么时候会结束，就像那样:

Sub Play_Complete()
    MsgBox "Song successfully played"
End Sub

我不确定vba-outlook中是否存在此事件。

我也试着做时间事件，但当我谷歌，我没有找到任何有价值的东西，可以适用于我的情况。大多数示例在vba-outlook

中不工作。

祝好,德米特里。

Answer 1

尝试声明以下子元素:

Sub oMediaPlayer_Complete()
  MsgBox "Song successfully played"
End Sub

，其中下划线符号后面的单词是事件名称。

无论如何，Outlook自定义表单是一项相对较老的技术。相反，我建议开发一个带有Outlook表单区域的add。有关详细信息，请参见创建Outlook表单区域。