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


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS

Last-modified: 2019-10-04 (金) 13:14:11