Hi Dmitry,

Yes, I am. I have a static property in a class which
stores the Inspectors and I have a corresponding event
handler specified for the NewInspector event on that
collection of Inspectors.

In the New Inspector event I am calling a function which
which goes on to create my sticky window . The first time
round when I install my addin and then run Outlook the
new Inspector event handler is executed each time a new
inspector window opens.
But when I close Outlook and open it second time, the new
inspector event handler is executed only for the first
inspector window that I open and not subsequently.

Is it posssible that something in my code is causing the
event handler to be disassociated with the event?
What could cause and event handler to stop handling the
event? I could post sections of my code if required.

Please any help or pointer would be great, I just can't
imagine what could be causing the event handler to stop
functioning!

Jbhan

You need to use an Inspector wrapper and declare your buttons in the wrapper
class using a unique Tag property for each button so each fires an
individual and unique Click event handler. This is a similar concept to the
Explorer wrapper class and collection used in the ItemsCB COM addin sample
(VB 6) on the Resources page at www.microeye.com

I use code something like the following. This example only shows a MailItem
declared WithEvents, to handle other item types you'd add additional
declarations. In the code that adds the class to the wrapper collection you
would check for the type of the item in the new Inspector
(Inspector.CurrentItem) and add or not add the class based on that,
depending if you wanted to handle the events for that item type.

The following code is a skeleton for an
Inspector class module, that gets put into a collection when NewInspector
fires and is removed from the collection when the Inspector is closed.
Handling the collection is similar to how it's done in the Explorer wrapper
code in ItemsCB.

VB 6 code:

Private WithEvents m_objInsp As Outlook.Inspector
Private WithEvents m_objMail As Outlook.MailItem

Private m_lngID As Long

Private Sub Class_Initialize()
 On Error Resume Next

 Set m_objInsp = Nothing
 Set m_objMail = Nothing
End Sub

Private Sub Class_Terminate()
 On Error Resume Next

 Set m_objInsp = Nothing
 Set m_objMail = Nothing
End Sub

Public Property Let Inspector(objInspector As Outlook.Inspector)
 On Error Resume Next

 Set m_objInsp = objInspector
 Set m_objMail = objInspector.CurrentItem
End Property

Public Property Get Inspector() As Outlook.Inspector
 On Error Resume Next

 Set Inspector = m_objInsp
End Property

Public Property Let Key(lngID As Long)
 On Error Resume Next

 m_lngID = lngID
End Property

Public Property Get Key() As Long
 On Error Resume Next

 Key = m_lngID
End Property

'*********************************************************************
'Event Procedure: m_objInsp_Close()
'Destroy Inspector object in InspWrap
'*********************************************************************
Private Sub m_objInsp_Close()
 On Error Resume Next

 basOutlInsp.KillInsp m_lngID, Me
 Set m_objInsp = Nothing

 If Err <> 0 Then
   AddInErr Err, "clsInspWrap", "m_objInsp_Close"
 End If
End Sub

You can now add button creation to this code, remembering to use a unique
Tag property for each button in each Inspector.