Msgbox не отображается в событии outlookApp_Send

Question

Я отправляю почту с помощью outlook, при отправке события я пытаюсь отобразить сообщение, но msgbox не отображается, пока я не нажму на экран (в любом месте).(Когда пользователь нажимает кнопку «Отправить» в Outlook, я изменяю окно OutlookState, чтобы свести к минимуму.)

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 оператор меняет фокус на названное приложение или окно, но не влияет на то, развернуто оно или свернуто.