Msgbox未在outlookApp_Send事件中显示

Question

我使用outlook发送邮件，发送事件我试图显示消息，但msgbox直到我点击屏幕（任何地方）才显示。 （一旦用户单击“在Outlook中发送”，我将更改Outlook窗口状态以最小化。）

Public Sub oApp_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If(StrComp(clickedEvent, "ClickMe", vbTextCompare) = 0) Then
        MsgBox "HI"
    end if
End sub

由于

Answer 1

这是几个MS Office应用程序的已知问题。尝试添加此代码，看看它是否有帮助：

AppActivate Application.Caption

或

AppActivate "Microsoft Excel" ' name of application that needs to be in focus

来自文档：

  

AppActivate语句将焦点更改为named   应用程序或窗口，但不影响它是否最大化或   最小化。