如何在 outlook 自定义表单中获取 MediaPlayer_complete 事件？

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

中不起作用

Rgds, 德米特里

Answer 1

尝试声明以下子项：

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

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

反正Outlook自定义表单是比较老的技术了。相反，我建议开发一个带有 Outlook 窗体区域的添加。有关详细信息，请参阅 Creating Outlook Form Regions。

如何在 outlook 自定义表单中获取 MediaPlayer_complete 事件？

How to get MediaPlayer_complete event in outlook custom form?

email

outlook

vba