Як вилучити себе з відповідей усіх в Outlook?

Якщо у вашому Outlook кілька облікових записів електронної пошти, це спричинить деякі проблеми, коли ви всі відповісте на отриманий електронний лист. Наприклад, ви отримуєте електронний лист через один обліковий запис, але всі адреси електронної пошти Outlook відображаються як одержувачі в цьому електронному листі, після натискання кнопки «Відповісти всім» усі адреси облікових записів електронної пошти включаються в поле Кому, Копія або Прихована копія. Але насправді, ви не хочете, щоб інші облікові записи електронної пошти самі отримували цей електронний лист-відповідь. Але як усунути себе від відповіді всім? Ця стаття порекомендує вам методи її досягнення.

Видаліть себе, надсилаючи електронні листи з кодом VBA
Один клік, щоб видалити себе з усіх відповідей за допомогою Kutools для Outlook

Видаліть себе, надсилаючи електронні листи з кодом VBA

Ви можете додати адреси свого облікового запису електронної пошти в Outlook до наступного коду VBA, щоб запобігти надсиланню електронних листів собі. Будь ласка, виконайте наступне.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікно, двічі клацніть на Project1 > Об'єкти Microsoft Outlook > ThisOutlookSession, а потім скопіюйте та вставте нижче коду 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. Переконайтеся, що параметр Увімкнути всі макроси увімкнено. Дивіться знімок екрана:

3. Натисніть зберегти і закрийте Microsoft Visual Basic для додатків вікна.

Відтепер, під час надсилання електронних листів, зазначені адреси електронної пошти ваших облікових записів Outlook автоматично видалятимуться з поля Кому, Копія або Прихована копія автоматично.

Один клік, щоб видалити себе з усіх відповідей за допомогою Kutools для Outlook

Як показано на наступному знімку екрана, щоб вилучити себе з відповіді у всьому в Outlook, виконайте наступне.

1. Натиснувши кнопку «Відповісти всім», щоб створити електронний лист із відповіддю, натисніть Кутулс > Моє ім'я. Дивіться знімок екрана:

Потім усі ваші імена (адреси облікового запису електронної пошти) негайно видаляються з поля Кому, Копія або Прихована копія.

Якщо ви хочете отримати безкоштовну пробну версію цієї утиліти, перейдіть на безкоштовно завантажити програмне забезпечення - спочатку, а потім перейдіть до застосування операції, як описано вище.