[TIP] Outlook 자동으로 참조/숨은참조 추가하기

---

안녕하세요 오늘은 아웃룩에 대한 내용을 작성해보려합니다.
저는 메일을 확인할때 받은 메일은 진단 대상별로 각 담당자와 주고받은 메일을 구분하여 메일을 관리하는데요
이렇게 하면 전달받은 메일은 분류하여 즉각 찾아볼 수 있어 편합니다. 

하지만

제가 보낸 메일은 정리를 하지 않는 버릇이 있어 찾아보기 불편하더라고요.
그래서 Outlook 메일 발송 시 자동으로 숨은참조를 추가하는 VBA를 공유하려합니다.

 

---

1. 사전작업

• 파일 > 옵션 > 보안 센터 설정 > 매크로 설정 > 모든 매크로 실행

• 위 기능을 체크해주셔야 VBA 메크로 사용이 가능합니다.

 

2. VBA 매크로 입력

• 아웃룩창에서 alt + F11 입력
• 좌측 프로젝트에 Micvrosoft Outlook 개체 > ThisOutlookSession 더클 클릭
• 더블클릭하게 될 경우 코드를 입력할 수 있는 창이 출력됩니다.
• 코드 입력 창에 아래 내용을 붙혀넣고 메일주소를 [add("여기")]입력해주세요

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient

Set objMe = Item.Recipients.Add("여기")
objMe.Type = olBCC
objMe.Resolve

Set objMe = Nothing
End Sub

 

3. 적용

• 저장 후 아웃룩 재실행은 필수입니다.

 

4. TIP

※ 참조 종류 변경

objMe.Type = olBCC : 숨은참조 objMe.Type = olCC : 참조

※ 여러개를 입력할 경우

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objMe As Recipient Set objMe = Item.Recipients.Add("1111@test.com") objMe.Type = olBCC objMe.Resolve Set objMe = Item.Recipients.Add("2222@test.com") objMe.Type = olBCC objMe.Resolve Set objMe = Item.Recipients.Add("3333@test.com") objMe.Type = olBCC objMe.Resolve Set objMe = Nothing End Sub

참고하셔서 순조로운 업무 보시길 바랍니나.