Hogyan távolíthatom el magam az Outlook összes válaszából?

Ha több e-mail fiók van az Outlook programban, akkor ez problémákat okoz, amikor az összeset válaszolja a kapott e-mailre. Például egy fiókon keresztül kap e-mailt, de az összes Outlook e-mail fiók címe címzettként jelenik meg ebben az e-mailben, miután az Összes válasz gombra kattint, az összes e-mail fiók címe szerepel a Címzett, Másolat vagy Titkos másolat mezőben. De valójában nem szeretné, ha más e-mail fiókok kapnák ezt a válaszüzenetet. De hogyan távolítsam el magam az összes válaszból? Ez a cikk módszereket fog ajánlani az elérésére.

Távolítsam el magam, amikor VBA kóddal küldöm az e-maileket
Egy kattintással eltávolítom magam a válaszból a Kutools for Outlook segítségével

Távolítsam el magam, amikor VBA kóddal küldöm az e-maileket

Hozzáadhatja az e-mail fiók címeit az Outlookon belül a következő VBA kódba, hogy megakadályozza e-mail küldését magának. Kérjük, tegye a következőket.

1. nyomja meg más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson duplán a gombra Project1 > Microsoft Outlook objektumok > ThisOutlookSession, majd másolja és illessze be a VBA kód alatt a Kód ablakba. Lásd a képernyőképet:

VBA kód: távolítsam el magam az összes e-mail küldésről az Outlook alkalmazásban

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

Megjegyzések:

1. Kérjük, változtassa meg a VBA kódban szereplő e-mail címeket e-mail fiókjaira.

2. Győződjön meg arról, hogy az Összes makró engedélyezése opció engedélyezve van. Lásd a képernyőképet:

3. Kattintson a Megtakarítás gombot, és zárja be a Microsoft Visual Basic for Applications ablak.

Ezentúl, amikor e-maileket küld, az Outlook-fiókok megadott e-mail címeit automatikusan eltávolítja a Címzett, Másolat vagy Titkos másolat mezőből.

Egy kattintással eltávolítom magam a válaszból a Kutools for Outlook segítségével

Ahogy az alábbi képernyőképen látható, hogy az Outlook összes válaszából eltávolíthassam magam, kérjük, tegye a következőket.

1. A Válasz mindenkinek gombra kattintva válaszüzenet létrehozásához kattintson a gombra Kutools > A nevem. Lásd a képernyőképet:

Ezután az összes nevét (e-mail fiók címét) azonnal eltávolítja a Címzett, Másolat vagy Titkos másolat mezőből.

Ha szeretné ingyenesen kipróbálni ezt a segédprogramot, kérjük, látogasson el ide: ingyenesen letölthető a szoftver először, majd lépjen a művelet végrehajtására a fenti lépések szerint.