Outlook의 모든 회신에서 자신을 제거하는 방법은 무엇입니까?

Outlook에 여러 전자 메일 계정이있는 경우받은 전자 메일에 모두 회신 할 때 몇 가지 문제가 발생합니다. 예를 들어, 하나의 계정을 통해 이메일을 수신했지만이 이메일에 수신자로 표시되는 모든 Outlook 이메일 계정 주소가 모두 답장 버튼을 클릭하면 모든 이메일 계정 주소가받는 사람, 참조 또는 숨은 참조 상자에 포함됩니다. 그러나 실제로 다른 이메일 계정이이 답장 이메일을받는 것을 원하지 않습니다. 그러나 모든 회신에서 자신을 제거하는 방법은 무엇입니까? 이 기사에서는이를 달성하는 방법을 권장합니다.

VBA 코드로 이메일을 보낼 때 본인 제거
한 번의 클릭으로 Outlook 용 Kutools로 회신에서 자신을 제거하십시오.

VBA 코드로 이메일을 보낼 때 본인 제거

Outlook 내의 전자 메일 계정 주소를 다음 VBA 코드에 추가하여 전자 메일을 자신에게 보내는 것을 방지 할 수 있습니다. 다음과 같이하십시오.

1. 프레스 다른 + F11 동시에 열려면 키 응용 프로그램 용 Microsoft Visual Basic 창.

2. 에서 응용 프로그램 용 Microsoft Visual Basic 창에서 Project1 > Microsoft Outlook 개체 > ThisOutlook세션을 클릭 한 다음 VBA 코드 아래에 복사하여 코드 창에 붙여 넣습니다. 스크린 샷보기 :

VBA 코드 : Outlook의 모든 보내는 전자 메일에서 자신 제거

Private Sub RemoveRecipientsWhenItemSend(Item As Outlook.MailItem)
	Dim RemoveAddrList As VBA.Collection
	Dim Recipients As Outlook.Recipients
	Dim aRecipient As Outlook.Recipient
	Dim i
	Dim j
	Set RemoveAddrList = New VBA.Collection
	' add addresses here
	RemoveAddrList.Add ""
	RemoveAddrList.Add ""
	Set Recipients = Item.Recipients
	For i = Recipients.Count To 1 Step - 1
		Set aRecipient = Recipients.Item(i)
		For j = 1 To RemoveAddrList.Count
			If LCase$(aRecipient.Address) = LCase$(RemoveAddrList(j)) 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
	RemoveRecipientsWhenItemSend Item
End Sub

노트:

1. VBA 코드의 이메일 주소를 이메일 계정으로 변경하십시오.

2. Enable all macros (모든 매크로 사용) 옵션이 활성화되어 있는지 확인합니다. 스크린 샷보기 :