먼저 Outlook을 실행하고, ALT + F11 을 눌러 VBA 코드 창을 실행합니다.

아래코드를 VBA 코드창의 현재 아웃룩 세션 (ThisOutlookSession)에 넣고 저장하면 지정한 Email 주소로 숨은참조로 이메일이 보내집니다.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMe As Recipient
    Set objMe = Item.Recipients.Add("user@where.com")
    objMe.Type = olBCC
    objMe.Resolve
    Set objMe = Nothing
End Sub
Posted by leeyongwan
,