マクロで自動的に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 (44d)