Reply to thread

Message: [QUOTE="paresh, post: 13721600"] Hi, 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. see [URL]https://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public.outlook.program_vba&tid=9adf7445-9157-41ec-ad5c-fd66c820f667&cat=&lang=en&cr=US&sloc=&p=1[/URL] Could any one please help me to sort out this issues. Thanks. ==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, True) Set MyButton = MyCommandBar.Controls.Add(msoControlButton, , "890", , True) 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 [/QUOTE]

Verification