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で送りたいメアドに変えてください。
