Jak se odstranit z odpovědi na vše v aplikaci Outlook?

Autor: Siluvia Naposledy změněno: 2020-07-22

Pokud je ve vašem Outlooku více e-mailových účtů, způsobí to nějaké problémy, když na přijatý e-mail odpovíte všem. Například obdržíte e-mail prostřednictvím jednoho účtu, ale všechny vaše adresy e-mailových účtů aplikace Outlook, které se v tomto e-mailu zobrazují jako příjemci, jsou po kliknutí na tlačítko Odpovědět všem zahrnuty všechny adresy e-mailových účtů do pole Komu, Kopie nebo Skrytá kopie. Ve skutečnosti ale nechcete, aby vám tento e-mail s odpovědí zasílal jiný e-mailový účet. Jak se ale odstranit z odpovědi na všechny? Tento článek vám doporučí metody, jak toho dosáhnout.

Při odesílání e-mailů s kódem VBA se odeberu
Jediným kliknutím se odeberu z odpovědi vše pomocí Kutools pro Outlook

Při odesílání e-mailů s kódem VBA se odeberu

Adresy e-mailových účtů v Outlooku můžete přidat do následujícího kódu VBA, abyste zabránili posílání e-mailů sami sobě. Postupujte prosím následovně.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace v okně poklepejte na ikonu Project1 > Objekty Microsoft Outlook > ThisOutlookSessiona poté zkopírujte a vložte pod kód VBA do okna Kód. Viz snímek obrazovky:

Kód VBA: odeberu se ze všech odesílaných e-mailů v aplikaci 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

Poznámky:

1. Změňte prosím e-mailové adresy v kódu VBA na své e-mailové účty.

2. Ujistěte se, že je povolena možnost Povolit všechna makra. Viz snímek obrazovky:

3. Klepněte na tlačítko Uložit tlačítko a zavřete Microsoft Visual Basic pro aplikace okno.

Od nynějška budou při odesílání e-mailů automaticky odstraněny zadané e-mailové adresy vašich účtů aplikace Outlook z pole Komu, Kopie nebo Skrytá kopie.

Jediným kliknutím se odeberu z odpovědi vše pomocí Kutools pro Outlook

Jak je ukázáno na následujícím snímku obrazovky, pro odebrání se z odpovědi na vše v Outlooku postupujte následovně.

1. Po kliknutí na tlačítko Odpovědět všem a vytvořte e-mail s odpovědí, klikněte prosím Kutools > Mé jméno je. Viz snímek obrazovky:

Poté budou všechna vaše jména (adresy e-mailových účtů) okamžitě odstraněna z pole Komu, Kopie nebo Skrytá kopie.

Chcete-li mít bezplatnou zkušební verzi tohoto nástroje, přejděte na software si stáhněte zdarma nejprve a poté přejděte k použití operace podle výše uvedených kroků.