MikeSel

- The ramblings of Mike Hudson a techie geek..

Add Custom Menus and Menu Items to Outlook

On December 24, 2008, in Programming, by Mike Hudson

Outlook 2007 brought with it the all new ‘Ribbon Bar’ which has caused headaches to programmers the world over.

Now, using this code you can create a menu in Outlook. The menu, which contains one item, appears at the top of the application. When you click the menu item, the code displays a message that shows the menu item caption.

Private menuBar As Office.CommandBar Private newMenuBar As Office.CommandBarPopup Private buttonOne As Office.CommandBarButton Private menuTag As String = “A unique tag” Private Sub ThisApplication_Startup(ByVal sender As Object, ByVal e _ As System.EventArgs) Handles Me.Startup RemoveMenubar() AddMenuBar() End Sub Private Sub AddMenuBar() Try menuBar = Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar newMenuBar = menuBar.Controls.Add( _ Office.MsoControlType.msoControlPopup, _ Temporary:=False) If newMenuBar IsNot Nothing Then newMenuBar.Caption = “New Menu” newMenuBar.Tag = menuTag buttonOne = newMenuBar.Controls.Add( _ Office.MsoControlType.msoControlButton, _ Before:=1, Temporary:=True) With buttonOne .Style = Office.MsoButtonStyle.msoButtonIconAndCaption .Caption = “Button One” .FaceId = 65 .Tag = “c123″ End With AddHandler buttonOne.Click, AddressOf ButtonOne_Click newMenuBar.Visible = True End If Catch Ex As Exception MessageBox.Show(Ex.Message) End Try End Sub Public Sub ButtonOne_Click(ByVal buttonControl As Office. _ CommandBarButton, ByRef Cancel As Boolean) MessageBox.Show(“You clicked: ” & buttonControl.Caption, _ “Custom Menu”, MessageBoxButtons.OK) End Sub Private Sub RemoveMenubar() Try ‘ If the menu already exists, remove it. Dim foundMenu As Office.CommandBarPopup = _ Me.Application.ActiveExplorer().CommandBars.ActiveMenuBar. _ FindControl(Office.MsoControlType.msoControlPopup, _ System.Type.Missing, menuTag, True, True) If foundMenu IsNot Nothing Then foundMenu.Delete(True) End If Catch Ex As Exception MessageBox.Show(Ex.Message) End Try End Sub

Last updated by Mike Hudson at December 24, 2008.

About the author

Mike Hudson

Mike Hudson is a Systems engineer living and working in Kingston Upon Hull. With extensive experience in Microsoft and Apple technologies, ranging from desktop OS’s to Server OS’s and hardware. By day working as part of an infrastructure team, and by night ridding the world of IT issues through blog posts..

Visit Authors Website

Tagged with: Outlook 2007 • Ribbon • VBA

Breadcrumbs: Home > Add Custom Menus and Menu Items to Outlook

I rated Star Trek Into Darkness 8/10 t.co/hiz4GLTrpb #IMDb Time ago 13 Hours via IMDb Movies & TV on iOS
Fantastic food enjoyed in the remaining sunlight @minerva_hull Time ago 15 Hours via Twitter for iPhone
@benjmortimer same screen as finger "mouse" ..... Less people this time Time ago 16 Hours via Twitter for iPhone
@phystromo it's on the cards :) Time ago 17 Hours via Twitter for iPhone
Lots more fresh blog content found out today... InfoPath is a cruel beast, but one Im certainly not going to let win the war! #SharePointDev Time ago 18 Hours via Twitter for iPhone
“@Skype: Learn how to sync your Lync contacts with #Skype and keep your conversations rolling: t.co/DcsiDWdpXH” Time ago 18 Hours via Twitter for iPhone
It's movie night party people! Venue has changed, if you want to join us let me know. Time ago 19 Hours via Twitter for iPhone
@LittlePaul just about mate, how are you? We need to get together for drinks soon! Time ago 19 Hours via Twitter for iPhone
@womblegooner it's not without it's issues... But all being well they'll be ironed out soon! :) Time ago 2 Days via Twitter for iPhone
RT @gcluley: If you're crazy enough to still be using Java, make sure to install the 40 new security vulnerability fixes today t.co/… Time ago 2 Days via Twitter for iPhone

Follow @MikeSel on twitter.

MikeSel

Add Custom Menus and Menu Items to Outlook

Mike Hudson

Categories

Recent Comments

Meta

Looking for something?

Visit our friends!

Archives

Pages

Stay In Touch

More

MikeSel

Add Custom Menus and Menu Items to Outlook

Mike Hudson

Categories

Tags

Recent Comments

Meta

Looking for something?

Visit our friends!

Archives

Pages

Stay In Touch

More