Dim WithEvents colInsp As Outlook.Inspectors
 
Private Sub Application_Quit()
    Set colInsp = Nothing
End Sub
 
Private Sub Application_Startup()
    Set colInsp = Application.Inspectors
End Sub
 
Private Sub colInsp_NewInspector(ByVal Inspector As Inspector)
    Dim objMail As Outlook.MailItem
    If Inspector.CurrentItem.Class = olMail Then
        Set objMail = Inspector.CurrentItem
        If objMail.Sent = False Then
            objMail.Recipients.add "(Test-Empfänger)"
        End If
    End If
    Set objMail = Nothing
End Sub