add toolbar in inspector contact item


G

Guest

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
 
Ad

Advertisements

K

Ken Slovak - [MVP - Outlook]

You always need an Inspector wrapper if you want to handle button clicks in
more than one open Inspector. If there only ever is 1 Inspector open at a
time you don't need a wrapper. The wrapper handles not only the Inspector
object to help tell a COM addin when Outlook is closing but also lets each
wrapper class handle a button click without interfering with any other open
Inspector and its buttons.

You can use the sample at
http://www.slovaktech.com/code_samples.htm#InspectorWrapper to get you
started. It's VB 6, so is code compatible with VBA. However you will not
need to use the tests for Inspectors.Count and Explorers.Count in the VBA or
to use a global Outlook object. Instead, just let Outlook close things down
when it wants to, and you use Application in Outlook VBA, an intrinsic
object.
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top