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:          ....