posted by 은이종 은이종 2015. 9. 9. 17:57

 

메일 발송시, 참조에 본인이 빠져서,

발송 메일은 의외로 관리하기가 쉽지 않다.

 

꼼수로, 아웃룩 숨은참조에 본인 메일 주소 넣기

 

아웃룩을 키고 Alt + F11 을 누르면

매크로 삽입 이 가능하다.

 

user@where.com

내용에 본인 메일주소를 넣고 저장하면 끝

========================================================================

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

========================================================================

image

댓글을 달아 주세요