아웃룩 지정메일 자동참조 (아웃룩에서 메일 보낼때 항상 나를 숨은참조로 하기)

회사에서 업무용으로 아웃룩을 사용하는데,

이게 이렇게 좋은 프로그램인지 기존에는 미쳐 몰랐다.

오프라인이 되어도 기존의 메일들이 전부 로컬에 담겨있으니 검색해 보기도 편하고..

진작 좀 써볼껄. 

아웃룩에서 메일을 보낼 때, 물론 보낸 편지함에 들어가긴 하지만

외부에서 아웃룩 없이 웹으로 로그인을 하면 보낸 편지함이 없어서 간혹 곤혹스러울 때가 있다.

그래서 보통 자신의 메일주소를 항상 숨은참조로 해서 메일을 백업 보관하곤 했는데,

아웃룩에서는 비주얼 베이직을 통해서 할 수 있다.

아웃룩을 켠 상태에서 ALT + F11 키를 누르면 비주얼 베이직 편집창이 나타난다.

왼쪽 트리 창에서 Project1 -> Microsoft Office Outlook -> ThisOutlookSession 을 선택하면 

오른쪽에 아래 그림과 같은 편집창이 나타난다. 

아래의 소스를 붙여넣어주고 메일주소 입력 부분에 자신의 메일 주소를 적은 다음 저장하면 끝.

?

1 2 3 4 5 6 7

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

먼저 보안문제로, 아웃룩 기본 설정에서는 매크로를 사용할 수 없는데요.

 아웃룩 옵션 -> 보안센터 -> 보안센터 설정 -> 매크로 설정에 들어가셔서

모든 매크로 실행으로 변경해 줍니다.