Outlook을 실행하고

ALT + F11 을 눌러 VBA 코드 창을 실행

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objK As Recipient
Set objK = Item.Recipients.Add(“user@abc.com”)
objK.Type = olBCC
objK.Resolve
Set objK = Nothing
End Sub