OUTLOOKで送信するとき自動的にBCCをつける方法 - エンタメLIFEHACKERS::mikye’s daily report

OUTLOOKで送信するとき自動的にBCCをつける方法 - エンタメLIFEHACKERS::mikye’s daily report

1.OUTLOOKを開いてAlt+F11を押す

2.VBAエディタが開く。左上のツリーを開いて(なにもいじったことなければProject1という名だと思う)、ツリーに出てきたOUTLOOKのアイコンを右クリック→コードの表示

3.以下のコードを張って閉じる。以上。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("myaddress@mydomain.dom")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub
※　myaddress@mydomain.domはBCCで送りたいメアドに変えてください。