#author("2019-10-04T13:14:10+09:00","default:ryuichi","ryuichi")
* マクロで自動的にBCCする [#e759b068]
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/