I
Irene
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
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