Hi legrooch,

I just implemented this in my Outlook 2007 Add-in.  Here is the entire
ThisAddIn class code. Please let me know if this works for you:

Public Class ThisAddIn
   Private WithEvents inspectors As Outlook.Inspectors

   Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Startup
       inspectors = Me.Application.Inspectors
       Dim inspector As Outlook.Inspector
       For Each inspector In inspectors
           Inspectors_NewInspector(inspector)
       Next inspector

   End Sub

   Sub Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector) _
   Handles inspectors.NewInspector

       If TypeOf Inspector.CurrentItem Is Outlook.MailItem Then
           Dim myItem As Outlook.MailItem = CType(Inspector.CurrentItem,
Outlook.MailItem)
           If myItem.Subject = "Opened entry" Then
               Dim ribbonCollection As ThisRibbonCollection =
Globals.Ribbons _
   (Globals.ThisAddIn.Application.ActiveInspector())
               ribbonCollection.Ribbon1.grpUpdateRibbGroup.Visible = True

           End If

       End If
   End Sub

   Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.Shutdown

   End Sub
End Class

FYI - I pieced this solution together by referring to 2 topics in MSDN:

Walkthrough: Displaying Custom Task Panes in E-Mail Messages in Outlook at
http://msdn2.microsoft.com/en-us/library/bb296010.aspx. (I used this
walkthrough to figure out how to trap the NewInspector event.

Accessing the Ribbon at Run Time -
http://msdn2.microsoft.com/en-us/library/bb772088.aspx (I used this topic to
figure out how to access my Ribbon given the currently active inspector
window.

Hope this helps!

Norm E.