Adding a button to the Appointment Form

  • Thread starter Thread starter cookiesncreamychoc
  • Start date Start date
C

cookiesncreamychoc

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
 
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.
 
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
 
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
 
Delete really shouldn't be needed if you create the button as Temporary :=
True.
 
Back
Top