Outlook Menu Bar

[StevenD]

Hi,

I would like to create a menu in outlook.

At present in Excel, i use the following code. Does anyone know how to modify this code to create a menu in Outlook?

Dim newMenu, newMenuItem
Call RemoveMenu
With CommandBars("worksheet menu bar")
Set newMenu = .Controls.Add(Type:=msoControlPopup, temporary:=True)
End With
newMenu.Caption = "&Hav 2 Projects"
Set newMenuItem = newMenu.Controls.Add(Type:=msoControlButton)
newMenuItem.Caption = "&Open Project Log"
newMenuItem.OnAction = "Log"