Как да се премахна от всички отговори в Outlook?

Автор: Силувия Последна промяна: 2020-07-22

Ако има няколко имейл акаунта във вашия 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. Щракнете върху Save и затворете Microsoft Visual Basic за приложения прозорец.

Отсега нататък, когато изпращате имейли, посочените имейл адреси на вашите акаунти в Outlook ще бъдат премахнати автоматично от полето До, Як или Скрито копие.

Едно кликване, за да се премахна от всички отговори с Kutools за Outlook

Както е показано на следващата екранна снимка, за да се премахна от всички отговори в Outlook, моля, направете следното.

1. След като щракнете върху бутона Отговори на всички, за да създадете имейл за отговор, щракнете върху Kutools > Моето име е. Вижте екранна снимка:

След това всички ваши имена (адреси на имейл акаунти) се премахват незабавно от полето До, Як или Скрито копие.

Ако искате да имате безплатна пробна версия на тази помощна програма, моля, отидете на безплатно изтегляне на софтуера първо и след това преминете към прилагане на операцията според горните стъпки.