Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean) 
Cancel = True

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)

Private WithEvents objInspectors As Inspectors
 
 
Private Sub Application_Startup()
 
Set objInspectors = Outlook.Inspectors
 
End Sub
 
 
Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
 
Dim aktMail As MailItem
 
Set aktMail = Inspector.CurrentItem
aktMail.Close olDiscard
 
Set Inspector = Nothing
End Sub

Wer fragt, der bleibt.