MS 아웃룩 숨은참조 넣기 (내가 쓴 메일 내가 받기)

회사에 입사해서 업무를 하다보면, 가장 많이 사용하는 프로그램이 아웃룩이다.

아웃룩을 사용하다보면, 자신의 Mail을 관리하게 위해 CC List에 자신의 주소를 다시 써 넣게 되는데....

여간 불편하다~~~

 

이를 해소 할 수 있는 방법이 있다..

생각보다 초 간다!! 

 

 

아웃룩 매인 클릭

1.  Alt+F11

2.  Project1 > Microsoft Office Outlook Objects > ThisOutlookSession

3.  Code 추가 후 저장
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