Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Плагин для Outlook

Автор: victor666 20.12.2005, 15:11

Доброго времени суток всем. Есть плагин для MSOutlook. В нем нужно добавить пункт в контекстное меню (по правой кнопке).
Следующий код добавляет пункт в меню "Действие". Аналогичный код на си добавлял тотже пункт и в контекстное меню. Данный код этого не делает. smile

Код


var
   spCmdBars         : CommandBars;
   spCmdBar          : CommandBar;
   spCtrl            : CommandBarControl;
   spNewMenu         : CommandBarControl;
   popUp             : CommandBarPopUp;
begin
...
spCmdBar  := nil;
spCmdBars := NewExplorer.CommandBars;

spCmdBar  := spCmdBars.ActiveMenuBar;
spCtrl := spCmdBar.Controls.Item[6];
popUp := spCtrl.Control as CommandBarPopUp;
spNewMenu := popUp.Controls.Add(msoControlButton, EmptyParam, EmptyParam, EmptyParam, true);
...
end;

Кто может поможите.