Help!!! Обработка событий

[MAXII]

Здравствуйте!

Помогите разобраться с обработкой событий в OutLook`e

Напишите плиз пример события Explorer_Activate или другого события,
но не событий объекта Application

[SergeySV]

Здравствуйте!

Помогите разобраться с обработкой событий в OutLook`e

Напишите плиз пример события Explorer_Activate или другого события,
но не событий объекта Application

А что тебе конкретно надо??? что хочешь получить...?

У меня, например, прога получает известие о приходе нового письма в Outlook и лезет его забирать...

[MAXII]

Как перехватить событие возникающее при нажатии на пункт меню
"Открыть в новом окне" и вывести какое нибудь сообщение при возникновении данного события.

Кнопка (элемент меню) "Открыть в новом окне" имеет ID - 1574

Код: Выделить всё

  Dim b As CommandBarControl
  Dim s As String
  Set b = Application.ActiveExplorer.CommandBars.FindControl(, 1574)


[Vitaly1]

Надо назначить к пункту меню макрос:

Код: Выделить всё

Application.CommandBars.ActiveMenuBar.Controls("Надпись или индекс 1 пункта").Controls("Надпись или индекс 2 пункта").OnAction = "Имя макроса"

Если в caption меню есть подчеркнутые буквы, то надо перед этой буквой писать &.

Код: Выделить всё

Для отмены макроса к пункту меню надо:
Application.CommandBars.ActiveMenuBar.Controls("Надпись или индекс 1 пункта").Controls("Надпись или индекс 2 пункта").OnAction = nul

Не знаю как для Out... а для Excel макрос для данного пункта меню должен быть в книге общих макросов.

[MAXII]

Во певых (может это и не важно) но за Application. нет CommandBars`a, Чем его заменить?

Я пишу так:

Код: Выделить всё


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


Кстати OurMacros втыкал как в ThisOutlookSession так и в Moduls
но получаю ошибку

Invalid procedure call or argument

Чего здесь не так?

[Vitaly1]

Если этот пункт в контекстном меню, то надо знать имя контекстного меню, скорее всего это "Context Menu" не имя меню.

А что за этим объектом ActiveExplorer CommandBars есть?
К сожалению в OutLook`e не программировал, там вероятно, чуть чуть не так, как в Word в Excel, но думаю что назначить макрос на имеющийся пункт меню можно.

[MAXII]

Context Menu есть.
Перебирая в цикле все имена CommandBars`a изначально, как только OutLook загрузился, обнаруживается что Context Menu нет.
И действительно я не могу реализовать макрос.
Код не компелиться!
Но когда что то открыто с помощью этого контекстного меню,(например кликнул по нему/открыл в новом окне "входящие")
Опять перебирая в цикле имена появится Context Menu (видимо оно становится активным в данном сеансе OutLook).
Код

Application.ActiveExplorer.CommandBars("Context Menu").Controls("Откр&ыть в новом окне").OnAction = "OurMacros"

выполняется и соответственно макрос выполняется.

Почему изначально Context Menu в CommandBars`ах нет?

Как быть в этом случае?