View Single Post
  #1  
Old February 24th 06, 09:47 PM posted to microsoft.public.outlook.program_vba
Irene
external usenet poster
 
Posts: 3
Default add toolbar in inspector contact item

Hi,

I am using Outlook 2003.
Do I need a "inspector wrapper" if i create a toolbar in outlook vba?
below is my start, am i on the right track?

Private Sub Application_Startup()
Set colInspectors = Application.Inspectors
End Sub


Private Sub colInspectors_NewInspector(ByVal Inspector As Inspector)
' MsgBox "New Inspector"


Dim objItem As Object
Dim objinsp As Inspector
Set objinsp = Inspector
On Error Resume Next
Set objItem = objinsp.CurrentItem
Select Case objItem.Class
Case olContact
Set objContactItem = objItem
' MsgBox "contact"
' createtoolbar function

'End If
End Select
End Sub


Thanks
Ads