Thanks. I've tried that. This is what I have:
In a Class Module call EdClass:
Public WithEvents myEdItem As Outlook.MailItem
Private Sub Class_Initialize()
Set myItem = Application.ActiveInspector.CurrentItem
End Sub
Private Sub myEdItem_Close(Cancel As Boolean)
If Not myItem.Saved Then
MsgBox " The item was closed."
End If
End Sub


Then in a standard Module, I have:
Dim myClass As New EdClass
Sub Register_Event_Handler()
Set myClass.myEdItem = "Outlook.mailitem"

End Sub


But I get an error that an Object is needed when trying to instantiate
the class (set myClass...).

Any thoughts?

Thanks
-Ed