Note: The other languages of the website are Google-translated. Back to English
登陆  \/ 
x
or
x
点此注册  \/ 
x

or

如何将自己从Outlook中的全部答复中删除?

如果您的Outlook中有多个电子邮件帐户,当您全部答复收到的电子邮件时,它将导致一些问题。 例如,您通过一个帐户收到一封电子邮件,但是您的所有Outlook电子邮件帐户地址在此电子邮件中均显示为收件人,在单击“全部答复”按钮之后,所有电子邮件帐户地址都包含在“收件人”,“抄送”或“密件抄送”框中。 但实际上,您不希望自己的其他电子邮件帐户收到此回复电子邮件。 但是,如何使自己摆脱所有回复呢? 本文将向您推荐实现此目标的方法。

使用VBA代码发送电子邮件时删除自己
一键删除自己从Kutools for Outlook的全部答复中


使用VBA代码发送电子邮件时删除自己

您可以将Outlook中的电子邮件帐户地址添加到以下VBA代码中,以防止向自己发送电子邮件。 请执行以下操作。

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2。 在里面 Microsoft Visual Basic应用程序 窗口,双击 Project1 > Microsoft Outlook对象 > 本次展望会议,然后将以下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 "happy.xuebi@163.com"
	RemoveAddrList.Add "siluvia@extendoffice.com"
	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 for Outlook的全部答复中

如下面的屏幕截图所示,要使自己从Outlook中的全部答复中删除,请执行以下操作。

1.单击全部答复按钮创建答复电子邮件后,请单击 库工具 > 我的名字是。 看截图:

然后,您的所有姓名(电子邮件帐户地址)立即从“收件人”,“抄送”或“密件抄送”框中删除。

如果您想免费试用该实用程序,请转到 免费下载软件 首先,然后按照上述步骤进行操作。


Kutools for Outlook-为Outlook带来100个高级功能,并使工作更加轻松!

  • 自动CC / BCC 根据规则发送电子邮件; 自动转发 自定义多封电子邮件; 自动回复 没有交换服务器,还有更多自动功能...
  • BCC警告 -当您尝试全部答复时显示消息 如果您的邮件地址在“密件抄送”列表中; 缺少附件时提醒,还有更多提醒功能...
  • 在邮件对话中回复(全部)带有所有附件; 回复许多电子邮件 很快; 自动添加问候语 回复时将日期添加到主题中...
  • 附件工具:管理所有邮件中的所有附件, 自动分离, 全部压缩,全部重命名,全部保存...快速报告, 计算选定的邮件...
  • 强大的垃圾邮件 习俗 删除重复的邮件和联系人... 使您能够在Outlook中做得更聪明,更快和更好。
拍摄kutools前景kutools选项卡1180x121
拍摄kutools前景kutools加标签1180x121
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.