"... 경우에 따라 '전체 답장'버튼을 누르면 Outlook이 자신에게 이메일을 보냅니다.이 VBA 예제는 보내기 전에 수신자 목록을 확인하고 특정 주소를 제거합니다.
http://www.vboffice.net/sample.html?mnu=2&smp=81&cmd=showitem&lang=en
Private Sub RemoveRecipients(Item As Outlook.MailItem)
Dim RemoveThis As VBA.Collection
Dim Recipients As Outlook.Recipients
Dim R As Outlook.Recipient
Dim i&, y&
Set RemoveThis = New VBA.Collection
' here add addresses
RemoveThis.Add "abc@domain.de"
RemoveThis.Add "test@domain.com"
Set Recipients = Item.Recipients
For i = Recipients.Count To 1 Step -1
Set R = Recipients.Item(i)
For y = 1 To RemoveThis.Count
If LCase$(R.Address) = LCase$(RemoveThis(y)) Then
Recipients.Remove i
Exit For
End If
Next
Next
End Sub
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error Resume Next
RemoveRecipients Item
End Sub
VBA에 익숙하지 않은 경우 여기를 참조하십시오. http://www.slipstick.com/developer/how-to-use-outlooks-vba-editor/
또는
MS Office에서 VBA를 어떻게 추가합니까?