How to add a custom toolbar button and give it a tooltip

re: How to add a custom toolbar button and give it a tooltip

steve.beynon@intergraph.com — Thu, 01 Jul 2004 11:49:00 GMT

Am attempting to use your code to auto-generate a custom toolbar button however am having problems passing the Outlook appicaton obect into your code.

Does the Outlook app have to be open when you run your code or can I automate the opening of Outlook, then pass this into your code for creation of the custom toolbar button

Thanks in advance for any information you may be able to provide

regards

Steve Beynon

re: How to add a custom toolbar button and give it a tooltip

steve.beynon@intergraph.com — Thu, 01 Jul 2004 12:40:00 GMT

Here is the revised code that I am using to open and create the custom toolbar button on the Standard toolbar

Public Function StartOutlook(Optional ProfileName) As Outlook.Application

Dim lobjOutlookApp As Outlook.Application
Dim lobjSaveEmailToSPFButton As CommandBarButton
Dim lobjStandard As CommandBar
Dim cbExist As Boolean

'obtain the os username and set as ProfileName
ProfileName = Environ("USERNAME")

On Error Resume Next

Set lobjOutlookApp = GetObject(, "Outlook.Application")

'On Error GoTo InstallToolbarOutlook_ERROR

If lobjOutlookApp Is Nothing Then

Set lobjOutlookApp = CreateObject("Outlook.Application")
lobjOutlookApp.Session.Logon ProfileName, , False, True

End If

' now setup the custom toolbar button on the standard toolbar

'The Standard toolbar is the one with "New", "Send/Receive", etc on it.
Set lobjStandard = lobjOutlookApp.ActiveExplorer.CommandBars("Standard")

"NB: The line above sets lobjStandard as Nothing even though lobjOutlookApp is set to Outlook"

cbExist = IsMenuThere("Standard", "CustomButton")

'If the option is not already on the menu, add it
If cbExist = False Then

Set lobjSaveEmailToSPFButton = lobjStandard.Controls.Add(msoControlButton)

With lobjSaveEmailToSPFButton
.BeginGroup = True
.Caption = "Custom&Button"
.OnAction = "SaveEmailToSPF_Click"
.ToolTipText = "Save Email To SPF"
.Style = msoButtonIconAndCaption
End With

End If

InstallToolbarOutlook_EXIT:
'close all applications
Set lobjOutlookApp = Nothing
Unload frmInstallToolbar
pobjOutlookApp.Quit
Exit Function

InstallToolbarOutlook_ERROR:
InstallToolbarOutlook = False
GoTo InstallToolbarOutlook_EXIT

End Function

re: How to add a custom toolbar button and give it a tooltip

KC Lemson — Fri, 02 Jul 2004 23:02:00 GMT

In my case, I was running this code from within the VBA editor in Outlook, so yes it was open. I'm not such an expert in this area that I can tell you exactly what to do here though, I recommend checking out www.outlookcode.com.

How to add a custom toolbar button and give it a tooltip.

Alan's Radio Weblog — Tue, 13 Jul 2004 23:56:00 GMT

How to add a custom toolbar button and give it a tooltip .

re: How to add a custom toolbar button and give it a tooltip

Gorgi Terziev — Fri, 06 Aug 2004 02:16:00 GMT

Do you have any advice how to add transparent icon to Outlook2000 toolbar and menu?
I have created COM Addin in VC#.NET that is supposed to work for Outlook2000, XP and 2003. Unfortunately - Outlook2000 handles icons differently then OutlookXP and Outlook2003.
I have found an article on MSDN which describes a technique how to accomplish this using Win32 API, but I want to avoid using Win32.