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中存在此事件。

我也尝试过做时间事件，但是当我用Google搜索时，我找不到任何可以适用于我的情况的有价值的东西。大多数示例在vba-outlook

中不起作用

RGDS，梅德。

Answer 1

尝试声明以下子目录：

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

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

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

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

1 个答案: