[ Outlook ] 아웃룩 메일 발송시 숨은 참조 자동 추가

테스트는 Outlook 2016 으로 진행.

 

1. [ 파일 ] - [ 옵션 ] 선택

2. [ 보안 센터 ] - [ 보안 센터 설정 ]

3. [ 매크로 설정 ] - [ 모든 매크로 실행 ] - [ 확인 ]

4. Visual Basic 실행 ( Outlook 에서 ALT + F11 )

   ThisOutlookSession 항목에 아래 내용 추가

    Set objMe 에 본인 해당 메일 주소 기입

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("mail@address.co.kr")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub

- 여러 메일 추가시   

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("mail@address.co.kr")
objMe.Type = olBCC
objMe.Resolve

Set objMe = Item.Recipients.Add("mail2@address.co.kr")
objMe.Type = olBCC
objMe.Resolve

Set objMe = Item.Recipients.Add("mail3@address.co.kr")
objMe.Type = olBCC
objMe.Resolve

Set objMe = Nothing
End Sub

 

 

5. 아웃룩 재시작 후 확인