Перебирая в цикле все имена CommandBars`ов изначально, как только OutLook загрузился, обнаруживается что Context Menu нет.
И код
- Код: Выделить всё
Public Sub OurMacros()
Dim a As Byte
a = MsgBox("df", , "klk")
End Sub
Private Sub Application_Startup()
Application.ActiveExplorer.CommandBars("Context Menu").Controls("Откр&ыть в новом окне").OnAction = "OurMacros"
end sub
не компелиться!
Но когда что то открыто с помощью этого контекстного меню,(например кликнул по нему/открыл в новом окне "входящие")
Опять перебирая в цикле имена появится Context Menu (видимо оно становится активным в данном сеансе OutLook).
Строка
- Код: Выделить всё
Application.ActiveExplorer.CommandBars("Context Menu").Controls("Откр&ыть в новом окне").OnAction = "OurMacros"
выполняется и соответственно макрос выполняется.
Почему изначально Context Menu в CommandBars`ах нет?
Как быть в этом случае, если необходимо отследить OnAction на Context Menu?