Sub MailItem_Send()
msgbox "Письмо открылось"
end sub

Private WithEvents m_Inspectors As Outlook.Inspectors
Private WithEvents m_Inspector As Outlook.Inspector
 
Private Sub Application_Startup()
  Set m_Inspectors = Application.Inspectors
End Sub
 
Private Sub m_Inspectors_NewInspector(ByVal Inspector As Outlook.Inspector)
  Set m_Inspector = Inspector
End Sub
 
Private Sub m_Inspector_Activate()
MsgBox m_Inspector.CommandBars.FindControl.id
End Sub