จะลบตัวเองออกจากการตอบกลับทั้งหมดใน Outlook ได้อย่างไร

หากมีบัญชีอีเมลหลายบัญชีใน Outlook ของคุณจะทำให้เกิดปัญหาบางอย่างเมื่อคุณตอบกลับอีเมลที่ได้รับทั้งหมด ตัวอย่างเช่นคุณได้รับอีเมลผ่านบัญชีเดียว แต่ที่อยู่บัญชีอีเมล Outlook ของคุณทั้งหมดที่แสดงเป็นผู้รับในอีเมลนี้หลังจากคลิกปุ่มตอบกลับทั้งหมดที่อยู่อีเมลทั้งหมดจะรวมอยู่ในกล่องถึงสำเนาหรือสำเนาลับ แต่จริงๆแล้วคุณไม่ต้องการให้บัญชีอีเมลอื่น ๆ ของคุณเองได้รับอีเมลตอบกลับนี้ แต่จะลบตัวเองออกจากการตอบกลับทั้งหมดได้อย่างไร? บทความนี้จะแนะนำวิธีการเพื่อให้บรรลุ

ลบตัวเองเมื่อส่งอีเมลด้วยรหัส VBA
คลิกเพียงครั้งเดียวเพื่อลบตัวเองออกจากการตอบกลับทั้งหมดด้วย Kutools for Outlook

ลบตัวเองเมื่อส่งอีเมลด้วยรหัส VBA

คุณสามารถเพิ่มที่อยู่บัญชีอีเมลของคุณภายใน Outlook ของคุณลงในรหัส VBA ต่อไปนี้เพื่อป้องกันการส่งอีเมลถึงตัวคุณเอง กรุณาดำเนินการดังนี้

1 กด อื่น ๆ + F11 พร้อมกันเพื่อเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน ดับเบิลคลิกที่ไฟล์ Project1 > วัตถุ Microsoft Outlook > นี้OutlookSessionจากนั้นคัดลอกและวางโค้ด 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. ตรวจสอบให้แน่ใจว่าเปิดใช้งานตัวเลือกเปิดใช้งานแมโครทั้งหมดแล้ว ดูภาพหน้าจอ: