Problem in temporary type toolbar

Not open for further replies.



My mail goal is to make sure that each and every outlook window must have

one and one add-in toolbar. The temporary type add-in toolbar works fine but

has below limitations:

1. If you hide or reposition the tool bar, it changes to default again

when you restart the outlook.

2. Possibility of missing or duplicat toolbar from/on outlook window. See

below example where toolbar can be missed.

-- Just open Outlook, you have "My button".

-- Then open Calender in new windows. Everything works fine.

-- Now close Outlook window first and then calender window.

-- Again open Outlook. It will open two windows Outlook and

Calender and you will have two toolbars on Outlook window and no toolbar on

calender window.

I tried with permanent type add-in toolbar also but facing other issues.

Could any one please help me to sort out this issues.


==MY code ===

Option Explicit

Public out_appt As Outlook.Application

Public WithEvents MyButton As Office.CommandBarButton

Public MyCommandBar As Office.CommandBar

Public WithEvents myColExpl As Outlook.Explorers

Public WithEvents myExpl As Outlook.Explorer

Private Sub AddinInstance_OnConnection(ByVal Application As Object, _

ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, _

ByVal AddInInst As Object, custom() As Variant)

Set out_appt = Application

End Sub

Private Sub AddinInstance_OnStartupComplete(custom() As Variant)

Set myColExpl = out_appt.Explorers

If out_appt.Explorers.Count > 0 Then

Call CreateToolBar

End If

Exit Sub

End Sub

Private Sub myColExpl_NewExplorer(ByVal Explorer As Outlook.Explorer)

If myExpl Is Nothing Then

Set myExpl = Explorer

End If

If out_appt.Explorers.Count > 0 Then

Call CreateToolBar

End If

End Sub

Private Sub myExpl_Close()

If out_appt.Explorers.Count < 1 Then

Set myExpl = Nothing

Set myColExpl = Nothing

End If

End Sub

Private Sub MyButton_Click(ByVal Ctrl As Office.CommandBarButton,

CancelDefault As Boolean)

On Error Resume Next

MsgBox "button clicked"

End Sub

Private Sub CreateToolBar()

If out_appt.Explorers.Count = 0 Then

Exit Sub

End If

Set myExpl = out_appt.ActiveExplorer

Const TOOLBARNAME = "My Toolbar"

' Set MyCommandBar = myExpl.CommandBars.Item(TOOLBARNAME)

' If Not MyCommandBar Is Nothing Then

' MsgBox "exists"

' Exit Sub

' End If


Set MyCommandBar = myExpl.CommandBars.Add(TOOLBARNAME, msoBarTop, False,


Set MyButton = MyCommandBar.Controls.Add(msoControlButton, , "890", ,


With MyButton

> Caption = "&Foo Button"

> Enabled = True

> OnAction = "!<PermToolbarTesting.Connect>"

> Tag = "890"

> FaceId = 362

> Style = 3

> Visible = True

End With

MyCommandBar.Visible = True

End Sub
Why don't you test whether your toolbar exists already? And as to the

position, you need to store that anywhere, for instance, in the registry,

and reload it when you create the toolbar.

Best regards

Michael Bauer
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
Victor_50 Problem - Google Workspace will stop "unsafe" access to Outlook end 2024 Using Outlook 3
Geldner Problem submitting SPAM using Outlook VBA Form Outlook VBA and Custom Forms 2
A Online Mode to Cached Exchange Mode problem Using Outlook 2
S Problem Accessing .MSG Property 'ImageNaturalHeight' Tag '0x80010003' Outlook VBA and Custom Forms 1
T Problem when requesting to view an email in a browser Using Outlook 0
R Outlook 2021 Having problem setting up outlook 2021 with windows 11. I have 3 gmail accounts and I want the 3 gmail, emails to merge into the same outlook input. Using accounts in Outlook 0
e_a_g_l_e_p_i Is anyone else having problem conneccting to gmail? Using Outlook 27
P Outlook calendar and contacts sync problem-outlook disconnects Using accounts in Outlook 2
S Archiving and Likely Modified Date Problem Using Outlook 3
R Problem moving file “Email folders.pst” to new PC Using Outlook 5
S Problem Checking the available stores in my Inbox (Outlook VBA) Outlook VBA and Custom Forms 0
Witzker GetAssignedView Problem Outlook VBA and Custom Forms 2
M Outlook 2010 Problem with OutLook 2010 32 bit, after Windows Auto Update Using Outlook 3
Marc2019 Outlook 2016 Font Problem Using Outlook 5
X I have met my waterloo trying to resolve embedded graphics problem with outlook 2007 and now 2016 Using Outlook 1
D Problem with custom form including _DocSiteControl1 Outlook VBA and Custom Forms 0
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 4
S Outlook 2007 Calendar instant search problem. Windows 7 Using Outlook 0
D Sort Problem with Sent Folders Using Outlook 1
S Conditional formatting problem with "is not empty" and categories Using Outlook 2
Mark Foley The upload of "Calendar" failed. There was a problem with the request. Using Outlook 6
avant-guvnor Import csv problem Using Outlook 7
katehawkins Outlook 2013 Ost to pst conversion problem Using Outlook 1
AbbieWhite The problem with a fairly large file. Using Outlook 3
I Outlook 2013 Send problem - 'Not Responding' forever Using accounts in Outlook 10
EmelineGueguen Help to understand the problem of work Using Outlook 1
W Outlook 2016 search problem persists after applying all known solutions Using Outlook 12
S problem with convert Using Outlook 1
S SendFromAccount - Problem trying to test existing value in open email Outlook VBA and Custom Forms 2
DruinaBiscardi unexpected problem in outlook Using Outlook 1
V Outlook 2003 problem with Windows 10 Creators Update 1709 Using Outlook 0
G Windows Update Causes BCM Database Access Problem? BCM (Business Contact Manager) 4
Grimev66 problem with conversion ost to pst Using Outlook 2
R Problem with searching public folders Exchange 2013/16 Exchange Server Administration 2
J Problem with Outlook 2016 new mail tray icon alert (envelope in the systems tray) Using accounts in Outlook 0
S Problem running Command button code Outlook VBA and Custom Forms 2
A .ost file problem Using Outlook 4
PetraTech Odd Folder View Problem Using Outlook 3
V iCloud problem Using Outlook 9
D Reply Problem with account Using accounts in Outlook 0
MattC Problem with Outlook 2007 & iCloud / duplicate tasks Using Outlook 1
V Problem moving folders Using Outlook 4
C Problem tracking meeting responses Using Outlook 3
Mark Foley Problem subscribing to shared calendar Using Outlook 1
K Problem with FreeBusy (before 1pm only) Outlook VBA and Custom Forms 7
skylark53 Advanced recurrence problem Using Outlook 2
E RSS export as OPML problem Using Outlook 4
D outlook 2013 contact list problem Using Outlook 0
T Problem with .Recipients.Add("alias") Outlook VBA and Custom Forms 3

Similar threads