Adding a button to the Appointment Form cookiesncreamychoc[ at ]hotmail.com 3/14/2006 7:55:57 AM Hi Ppl, I really really need help this time...... Could you please tell me what is wrong with the code below: Private Sub oInspector_NewInspector(ByVal Inspector As Microsoft.Office.Interop.Outlook.Inspector) Handles oInspector.NewInspector Try oAppointment = CType(Inspector.CurrentItem, AppointmentItem) 'SetCommandBars(oAppointment) Dim oCommandBars As CommandBars 'Outlook has the CommandBars collection on the Explorer object. oCommandBars = oAppointment.GetInspector.CommandBars 'In case the button was not deleted, use the exiting one. 'Try 'Toolbox = CType(oCommandBars("Standard").Controls("Int"), CommandBarButton) 'Catch 'If btnToolbox Is Nothing Then btnToolbox = CType(oCommandBars("Standard").Controls.Add(1, System.Reflection.Missing.Value, System.Reflection.Missing.Value, System.Reflection.Missing.Value, System.Reflection.Missing.Value), CommandBarButton) With btnToolbox .Caption = "Toolbox Details" .Style = MsoButtonStyle.msoButtonCaption .Tag = "Toolbox Details" .OnAction = "!<IntOutlook.Connect>" .Visible = True End With 'End If 'End Try Catch 'not an Appointment End Try End Sub All I want to do is add a button in the Standard toolbar of the Appointment form.... Desperate for help..... Thanx

Re: Adding a button to the Appointment Form "Ken Slovak - [MVP - Outlook]" <kenslovak[ at ]mvps.org> 3/14/2006 3:48:46 PM And what happens? Any errors? Normally you would want to make sure that the item is an appointment before doing the rest of the code. That can be done by checking the Class of Inspector.CurrentItem. I also usually defer creating my buttons in an Inspector until the first Activate event fires for that Inspector. -- Ken Slovak [MVP - Outlook] http://www.slovaktech.com Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003 Reminder Manager, Extended Reminders, Attachment Options http://www.slovaktech.com/products.htm <cookiesncreamychoc[ at ]hotmail.com> wrote in message news:1142322957.458193.222360[ at ]i39g2000cwa.googlegroups.com... [Quoted Text] > Hi Ppl, > > I really really need help this time...... > Could you please tell me what is wrong with the code below: > > Private Sub oInspector_NewInspector(ByVal Inspector As > Microsoft.Office.Interop.Outlook.Inspector) Handles > oInspector.NewInspector > Try > oAppointment = CType(Inspector.CurrentItem, > AppointmentItem) > 'SetCommandBars(oAppointment) > Dim oCommandBars As CommandBars > 'Outlook has the CommandBars collection on the Explorer > object. > oCommandBars = oAppointment.GetInspector.CommandBars > 'In case the button was not deleted, use the exiting one. > 'Try > 'Toolbox = CType(oCommandBars("Standard").Controls("Int"), > CommandBarButton) > 'Catch > 'If btnToolbox Is Nothing Then > btnToolbox = CType(oCommandBars("Standard").Controls.Add(1, > System.Reflection.Missing.Value, System.Reflection.Missing.Value, > System.Reflection.Missing.Value, System.Reflection.Missing.Value), > CommandBarButton) > With btnToolbox > .Caption = "Toolbox Details" > .Style = MsoButtonStyle.msoButtonCaption > .Tag = "Toolbox Details" > .OnAction = "!<IntOutlook.Connect>" > .Visible = True > End With > 'End If > 'End Try > > Catch > 'not an Appointment > End Try > End Sub > > All I want to do is add a button in the Standard toolbar of the > Appointment form.... > > Desperate for help..... > Thanx >

Re: Adding a button to the Appointment Form Rog <rog_21[ at ]yahoo.com> 3/14/2006 3:54:28 PM I use C# for my addins and looking at this line: CType(oCommandBars("Standard").Controls.Add(1, System.Reflection.Missing.Value, System.Reflection.Missing.Value, System.Reflection.Missing.Value, System.Reflection.Missing.Value), CommandBarButton) usually the last parameter is true or false for temporary or not. Rog cookiesncreamychoc[ at ]hotmail.com wrote: [Quoted Text] > Hi Ppl, > > I really really need help this time...... > Could you please tell me what is wrong with the code below: > > Private Sub oInspector_NewInspector(ByVal Inspector As > Microsoft.Office.Interop.Outlook.Inspector) Handles > oInspector.NewInspector > Try > oAppointment = CType(Inspector.CurrentItem, > AppointmentItem) > 'SetCommandBars(oAppointment) > Dim oCommandBars As CommandBars > 'Outlook has the CommandBars collection on the Explorer > object. > oCommandBars = oAppointment.GetInspector.CommandBars > 'In case the button was not deleted, use the exiting one. > 'Try > 'Toolbox = CType(oCommandBars("Standard").Controls("Int"), > CommandBarButton) > 'Catch > 'If btnToolbox Is Nothing Then > btnToolbox = CType(oCommandBars("Standard").Controls.Add(1, > System.Reflection.Missing.Value, System.Reflection.Missing.Value, > System.Reflection.Missing.Value, System.Reflection.Missing.Value), > CommandBarButton) > With btnToolbox > .Caption = "Toolbox Details" > .Style = MsoButtonStyle.msoButtonCaption > .Tag = "Toolbox Details" > .OnAction = "!<IntOutlook.Connect>" > .Visible = True > End With > 'End If > 'End Try > > Catch > 'not an Appointment > End Try > End Sub > > All I want to do is add a button in the Standard toolbar of the > Appointment form.... > > Desperate for help..... > Thanx >

Re: Adding a button to the Appointment Form cookiesncreamychoc[ at ]hotmail.com 3/15/2006 12:21:13 AM Thanks Ken.... U r a star with (an) Outlook :)

Re: Adding a button to the Appointment Form cookiesncreamychoc[ at ]hotmail.com 3/15/2006 12:21:18 AM Thanks Ken.... U r a star with (an) Outlook :)

Re: Adding a button to the Appointment Form cookiesncreamychoc[ at ]hotmail.com 3/21/2006 12:36:00 AM I am trying to delete the button in the Inspector Close event but it doesnot seem to be working. oCommandBars("Standard").Controls("Opportunities").Delete(System.Reflection.Missing.Value) The button has been designed to only load for the Appointment Items. I'm sure it is not being deleted because when I create a new mail message it is not visible but once I create an appointment and reopen the mail message the button is available in the standard toolbar. Suggestions? Thanx

Re: Adding a button to the Appointment Form "Ken Slovak - [MVP - Outlook]" <kenslovak[ at ]mvps.org> 3/21/2006 2:09:59 PM Delete really shouldn't be needed if you create the button as Temporary := True. -- Ken Slovak [MVP - Outlook] http://www.slovaktech.com Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003 Reminder Manager, Extended Reminders, Attachment Options http://www.slovaktech.com/products.htm <cookiesncreamychoc[ at ]hotmail.com> wrote in message news:1142901359.952828.30090[ at ]i40g2000cwc.googlegroups.com... [Quoted Text] >I am trying to delete the button in the Inspector Close event but it > doesnot seem to be working. > oCommandBars("Standard").Controls("Opportunities").Delete(System.Reflection.Missing.Value) > > The button has been designed to only load for the Appointment Items. > I'm sure it is not being deleted because when I create a new mail > message it is not visible but once I create an appointment and reopen > the mail message the button is available in the standard toolbar. > > Suggestions? > > Thanx >