Hi



Here is the code snippet

Private Sub m_olInspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
Try

m_olInspector = CType(Inspector, Outlook.InspectorClass)
AddHandler m_olInspector.InspectorEvents_Event_Close, AddressOf
m_olInspector_Close

If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
m_olMailItem = CType(Inspector.CurrentItem,
Outlook.MailItemClass)
End If
Catch ex As SystemException

End Try
End Sub

The line "If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then" is
giving problem when I used the shared calendar to open the mail item second
time. If I comment out the IfLoop and its contents it is working fine.

Regards
R.Balamurugan