マクロで自動的にBCCする

 Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 Dim objRecip1 As Recipient
 Set objRecip1 = Item.Recipients.Add("foo@abc.com")
 objRecip1.Type = olBCC
 objRecip1.Resolve
 Set objRecip1 = Nothing
 Dim objRecip2 As Recipient
 Set objRecip2 = Item.Recipients.Add("bar@xyz.net")
 objRecip2.Type = olBCC
 objRecip2.Resolve
 Set objRecip2 = Nothing
 End Sub

http://www.groovypost.com/howto/microsoft/how-to-automatically-bcc-in-outlook-2010/