Outlook Programming : How to get the File Menu commands programmatically?
This time we will try using the Outlook Object model, we can able to get the Outlook File Menu commands programmatically (I tried with Outlook 10)
1: ...
2: ' First get the ActiveExplorer
3: Dim oExp As Outlook.Explorer = oApp.ActiveExplorer()
4:
5: ' Then get the menu bar.
6: Dim oCmdBars As Office._CommandBars = oExp.CommandBars
7: Dim oCmdBar As Office.CommandBar = oCmdBars("Menu Bar") 8: 'If needed display the CommandBar Name
9: Console.WriteLine(oCmdBar.Name)
10:
11: ' Get the controls
12: Dim oBrCrls As Office.CommandBarControls = oCmdBar.Controls
13:
14: ' Then get the File menu.
15: Dim oBPop As Office.CommandBarPopup = oBrCrls("File") 16: ' If needed display the caption
17: Console.WriteLine(oBPop.Caption)
18: oBrCrls = oBPop.Controls
19:
20: ' Then loop each menu & display the caption
21: Dim oBtn As Office.CommandBarControl
22: For Each oBtn In oBrCrls
23: Console.WriteLine(oBtn.Caption)
24: Next
25: ....
