안녕하세요. Neuru 입니다

※ 해당 글은 제 블로그에서 담아온것 입니다. http://neuru76.tistory.com/40
내용을 가져 왔으니 사진을 안보셔도 된다면 굳이 블로그 들어가시지 않아도 됩을 알려 드립니다

이번 꿀팁은 직장인이면 많이 쓰시는 이메일 프로그램인 아웃룩에 관련된 꿀팁입니다.
저도 회사에서 메일로 주로 업무 커뮤니케이션을 하고 있기때문에 아웃룩을 자주 이용하는데요.

메일을 보낼때 물론 보낸 편지함에 저장이 되긴 하지만 실제도 받는 사람이 보는 화면과 약간 다르고 또한 서버에는 남지 않기 떄문에 (보통의 POP 형식 서버를 사용 하는경우) 보내기전 숨은 참조에 자신의 이메일을 넣어 발송하는 경우가 있는데요.

매번 하기 귀찮다 보니 "자동으로 숨은참조에 내 이메일 주소가 들어가 있으면 좋겠다" 라고 생각 하시는 분들을 위해 준비한 꿀팁입니다.
자 이제 시작 합니다.

※참고사항 : 오피스 2007, 2010, 2013, 2016, 365 모두적용 가능합니다.
저는 오피스 2013 기준으로 작성 하도록 하겠습니다. 인터페이스가 다르지만 집입 경로는 비슷하니 어렵지 않을 것 같습니다.

(사진을 올리는법을 몰라서 ㅠㅠ 만약 글로 이해가 되지 않으신다면 블로그에서 봐주시길 바랍니다.)
http://neuru76.tistory.com/30

1. 아웃룩을 실행 하여 [파일] 버튼을 클릭합니다.
2. [옵션] 버튼을 클릭합니다.
3. [보안센터]를 클릭후 [보안센터설정] 을 클릭합니다.
4. [메크로 설정] 클릭후 [모든메크로실행]을 선택 한 후 [확인] 버튼을 클릭 합니다.
5. 아웃룩 메인 화면에서 키보트릐 Alt와 F11 키를 통시에 눌리면 비주얼 베이직 프로그램이 열립니다.

6. 왼쪽에 있는 내용을 다 펼치신 뒤에 맨 아래에 있는 [This OutlookSession]을 더블 클릭 합니다.
이후 아래의 내용을 입력 합니다. (빨간색 부분은 숨은참조에 넣고싶은 이메일 주소를 넣으면 됩니다.)

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("메일주소@메일주소.com")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub


추가 Tip!

만약 숨음참조를 2개 이상의 주소를 입력하고자 한다면 다음과 같이 입력 하시면 됩니다.

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

Set objMe = Item.Recipients.Add("메일주소1@메일주소.com")
objMe.Type = olBCC
objMe.Resolve

Set objMe = Item.Recipients.Add("메일주소2@메일주소.com")
objMe.Type = olBCC
objMe.Resolve

Set objMe = Item.Recipients.Add("메일주소3@메일주소.com")
objMe.Type = olBCC
objMe.Resolve

.
.
.

Set objMe = Nothing
End Sub

Set objMe = Item.Recipients.Add("메일주소@메일주소.com")
objMe.Type = olBCC
objMe.Resolve

이항목만 추가 하시면 됩니다.
어렵지 않죠?

7. 내용을 저장한뒤 비주얼 베이직 창을 닫습니다.
8. 아웃룩을 종료한뒤 다시 실행 합니다.
9. 자 이제 모든 설정이 끝났으니 잘되는지 TEST 해보도록 하겠습니다.

여기서 주의할 점은 TEST 할떄 숨은 참조에 있는 이메일 외의 주소로 해야 한다는점 잊지 마세요!

지금까지 Neuru 의 꿀팁이였습니다. ^^

오늘 기다리던 금요일입니다.
모두 즐거운 불금이 되시길... 또 스마트한 직장인이 되는 그날까지 화이팅 입니다.