Re: outlook Add-In problem accessing shared calendar second
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
|