[OFFICE]

outlook 자동으로 자신을 BCC에 추가하기

Julyus 2012. 4. 18. 11:44






http://blog.naver.com/songariq/80105751444



아웃룩은 규칙 설정을 통해서 발송하는 모든 메일에 참조를 걸 수 있다. 하지만 여기서 한발 더 나아가 발송하는 모든 메일에 숨은 참조를 걸 수 있다. 
방법은

1. 사설 인증서 발행하기 
2. VBA코드를 넣어서 발송되는 메일에 특정 주소를 숨은 참조로 설정

3. 사설인증서를 통해 실행시 자동 차단되지 않게 하기  

기본적으로 아웃룩 2007은 서명된 매크로는 실행여부를 확인받고, 서명되지 않은 매크로는 차단하도록 설정되어 있다.
따라서 2번만 작업하면, 기능이 자동 차단되어 정상적으로 작동하지 않는다.

우선, 1번 작업을 수행한 후 2번 작업을 수행하는 것이 편리하다.

1. 사설 인증서 발행하기
오피스에는 기본적으로 사설 인증서를 발행할 수 있는 "Selfcert.exe"프로그램이 설치되어 있다.
윈도우즈의 검색 기능을 통해 Selfcert.exe파일을 찾아 실행시키자.
C:\Program Files\Microsoft Office 2007\Office12\
Selfcert.exe 




확인 버튼을 누르면 인증서가 발행된다.

2. VBA코드 집어 넣기.
아웃룩을 실행시킨 후 Alt키와 F11를 누르면 VBA코드창이 나온다.
왼쪽 프로젝트 상자에 Project1(VbaProject.OTM) 하위의 Microsoft Office Outlook개체 하위의 ThisOutlookSession을 더블클릭하면 오른쪽에 코드를 집어넣을 수 있는 창이 열린다.

 


창에 다음 코드를 삽입한다.

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

위 코드는 "http://ywlee.tistory.com/18"에서 가지고 왔슴.
위 코드의 메일주소 user@where.com을 본인이 비밀참조로 넣을 메일주소로 변경.

3. 사설인증서를 통해 실행시 자동 차단되지 않게 하기
   
저장버튼을 클릭후 "VBA코드" 도구메뉴의 "디지털서명"메뉴를 클릭해서 나오는 대화상자에서 좀전에 만든 디지털 서명을 선택해서 적용.

이후 VBA코드창을 종료한 후, 아웃룩을 종료.
아웃룩을 다시 실행시키면 매크로 확인 경고창이 뜨며, 맨 왼쪽의 버튼을 "이 원본의 매크로는 항상 신뢰함"을 클릭하면, 이후 경고창이 나오지 않는다.

이상으로 설치 완료