아웃룩 메일 발송시 자동으로 숨은참조 추가되게 하기

아웃룩으로 메일 발송할 때 특정 메일주소가 숨은 참조로 포함되게 하는 방법

 

아웃룩을 실행 한 후에, ALT+F11 키를 누르거나 도구 - 매크로 - Visual Basic Editor 로 들어가서 아래 코드를 붙여 넣는다.

 

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

위에서 user@where.com 주소는 숨은 참조로 보내고 싶은 주소로 수정한다.

 

그런 후에 저장하고 아웃룩 종료 후에 다시 아웃룩을 실행하면 됨.

 

메일이 발송되지 않는 다면, 도구 - 매크로 - 보안 에서 매크로 보안 설정을 확인해야 한다.