outlook 자동으로 자신을 BCC에 추가하기
아웃룩에서 메일을 발송할때 보낸 편지함에 자동으로 저장이 되긴하지만
일일이 찾아봐야하고 찾기가 쉽지가 않아 매번 메일을 발송할때마다 수동으로 BCC에 본인의 메일 주소를 입력하여 사용하였다.
그런데 급하게 메일을 작성하다보면 어쩌다가 한번씩 빼먹는 경우가 발생해서 자동화 할 수 없을까
고민하던 차에 구글에서 찾아보니 매크로로 설정할 수 있는 방법이 있어 정리했다.
아웃룩에서 Alt + F11을 눌러 매크로 편집창을 띄운다.
좌측 tree 목록에서 "ThisOutlookSession"을 찾아서 더블클릭하여 코드 편집창을 띄운다.
아래 코드를 입력(복사 & 붙이기)하고 strBcc = "abc@abc.com" 부분을 자신의 메일 주소로 변경한다.
저장을 하고 아웃룩 창으로 돌아와 테스트 메일을 보내보자.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objRecip As Recipient
Dim strMsg As String
Dim res As Integer
Dim strBcc As String
On Error Resume Next
strBcc = "abc@abc.com"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. Do you want still to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, "Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub
출처:http://kylesoft.springnote.com/pages/5555213
