MS Outlook 발신인 자동 숨은참조 넣기

회사에서는 MS Outlook을 이용해서 메일/일정관리를 한다.

수없이 쌓이는 메일은 조금만 소홀해도 관리가 힘들어지는데, 특히 History 관리 차원에서는 보낸메일을 적절히 분류/관리하는 것도 필수이다.

메일을 작성할 때 마다, 나를 숨은참조로 넣으면 받은메일만 관리하면 되므로 편리한데, 매번 넣기가 귀찮다. 

검색을 해보니, Outlook에서 메일 보낼 때 자동으로 발신자를 숨은참조로 넣는 방법이 있기에 공유해 본다.

1. Outlook 실행화면에서 ALT + F11을 열어 Visual Basic 창을 실행한다.

2. 왼편 프로젝트 Tree에 "ThisOutlookSession"을 더블클릭하여 코드 창을 연다.

3. 아래와 같이 코드를 입력한다.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)     Dim objMe As Recipient     Set objMe = Item.Recipients.Add("XXXXX@XXXXX")     // 상기 빨간 부분은 자신의 e-mail 주소를 기입     objMe.Type = olBCC     objMe.Resolve     Set objMe = Nothing End Sub

4. 저장 버튼을 누르고 Visual Basic 창을 닫는다.

5. 파일-옵션-보안센터-보안센터 설정을 클릭한다.

6. 매크로 설정에서 "모든 매크로 실행" 및 "설치된 추가 기능에 대해 매크로 보안 설정 적용" 을 체크 한다.

7. MS Outlook을 종료하고 다시 시작하여 테스트 메일을 발송해 본다.

끝.