Option Explicit
Private WithEvents mobjInspectors As Inspectors
Public p_olMailItem As Outlook.MailItem
Private Sub Class_Initialize()
Set mobjInspectors = Application.Inspectors
End Sub
Private Sub Class_Terminate()
Set mobjInspectors = Nothing
End Sub
Private Sub mobjInspectors_NewInspector(ByVal Inspector As Inspector)
If Inspector.CurrentItem.Class = olMail Then
Emailobjekt = Inspector.CurrentItem
UserForm1.Show
End If
End Sub
Private Property Let Emailobjekt(ByVal oNeueEmail As Outlook.MailItem)
Set p_olMailItem = oNeueEmail
End Property