기억

outlook 자동 cc 본문

Tips

outlook 자동 cc

Engrave 2014. 10. 29. 19:42

alt+F11로 Visual Basic for Application 열기

 

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

    Dim objMe As Recipient

    Set objMe = Item.Recipients.Add("자신의email주소")

    objMe.Type = olBCC

    objMe.Resolve

    Set objMe = Nothing

End Sub

 

Comments