Take a look at this code sample, Peter. It will add a new menu hierarchy
after the "Help" menu for any open item.
Sub AddInspectorMenu()
Dim objCB As Office.CommandBar, objMenu As Office.CommandBarPopup
Dim objMenuItem As Office.CommandBarButton
Dim objInsp As Outlook.Inspector
If Not ActiveInspector Is Nothing Then
Set objInsp = ActiveInspector
Else
Exit Sub
End If
Set objCB = objInsp.CommandBars.Item("Menu Bar")
Set objMenu = objCB.Controls.Add(MsoControlType.msoControlPopup)
objMenu.Caption = "My Menu"
Set objMenuItem = objMenu.Controls.Add(MsoControlType.msoControlButton)
objMenuItem.Caption = "My Menu Item"
End Sub
