Jak usunąć siebie z odpowiedzi na wszystkie w Outlooku?

Jeśli w programie Outlook jest wiele kont e-mail, spowoduje to pewne problemy, gdy odpowiesz na wszystkie otrzymane wiadomości e-mail. Na przykład otrzymujesz wiadomość e-mail za pośrednictwem jednego konta, ale wszystkie adresy kont e-mail programu Outlook są wyświetlane jako adresaci w tej wiadomości e-mail, po kliknięciu przycisku Odpowiedz wszystkim wszystkie adresy kont e-mail są uwzględniane w polu Do, DW lub UDW. Ale w rzeczywistości nie chcesz, aby inne konta e-mail otrzymywały tę odpowiedź. Ale jak usunąć się z odpowiedzi wszystkim? Ten artykuł poleci Ci metody osiągnięcia tego celu.

Usuń się podczas wysyłania wiadomości e-mail z kodem VBA
Jedno kliknięcie, aby usunąć się z odpowiedzi wszystkim za pomocą Kutools for Outlook

Usuń się podczas wysyłania wiadomości e-mail z kodem VBA

Możesz dodać adresy swoich kont e-mail w programie Outlook do następującego kodu VBA, aby zapobiec wysyłaniu wiadomości e-mail do siebie. Wykonaj następujące czynności.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications kliknij dwukrotnie plik Project1 > Obiekty programu Microsoft Outlook > Ta sesja programu Outlook, a następnie skopiuj i wklej poniższy kod VBA do okna Code. Zobacz zrzut ekranu:

Kod VBA: usuń się ze wszystkich wysyłanych e-maili w Outlooku

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

Uwagi:

1. Zmień adresy e-mail w kodzie VBA na swoje konta e-mail.

2. Upewnij się, że opcja Włącz wszystkie makra jest włączona. Zobacz zrzut ekranu:

3. Kliknij Zapisz i zamknij Microsoft Visual Basic for Applications okno.

Odtąd podczas wysyłania wiadomości e-mail określone adresy e-mail kont programu Outlook będą automatycznie usuwane z pól Do, DW lub UDW.

Jedno kliknięcie, aby usunąć się z odpowiedzi wszystkim za pomocą Kutools for Outlook

Jak pokazano na poniższym zrzucie ekranu, aby usunąć siebie z odpowiedzi w Outlooku, wykonaj następujące czynności.

1. Po kliknięciu przycisku Odpowiedz wszystkim, aby utworzyć wiadomość e-mail z odpowiedzią, kliknij Kutools > Mam na imię. Zobacz zrzut ekranu:

Następnie wszystkie Twoje imiona i nazwiska (adresy kont e-mail) są natychmiast usuwane z pola Do, DW lub UDW.

Jeśli chcesz skorzystać z bezpłatnej wersji próbnej tego narzędzia, przejdź do bezpłatnie pobrać oprogramowanie najpierw, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.