マクロで自動的に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/ |
|