OOM & VSTO : How to capture the current item from the active inspector?

One of my customer (developer) updated and created an Outlook 2007 Add-in (VSTO). He want to capture the current item from the active inspector?

In order to capture the current item from the active inspector you can use “OutlookSession.ActiveInspector.CurrentItem”. It will like this,

 '[VB.Net: Code Snippet]

 ...

 'Declaration part

 Dim ThisOutlookSession As Outlook.Application = New Outlook.Application

 Dim NS As Outlook.NameSpace = ThisOutlookSession.Session

 ... 

 'Implement your business logic, if you have any

 ...

 'Find whether the active window is the Inspector or not

 If TypeName(ThisOutlookSession.ActiveWindow) = "Inspector" Then 

          Msgbox(ThisOutlookSession.ActiveInspector.CurrentItem.Subject)

 End if

 ...