Làm cách nào để xóa chính tôi khỏi trả lời tất cả trong Outlook?

Nếu có nhiều tài khoản email trong Outlook của bạn, nó sẽ gây ra một số vấn đề khi bạn trả lời tất cả email đã nhận. Ví dụ: bạn nhận được email thông qua một tài khoản, nhưng tất cả các địa chỉ tài khoản email Outlook của bạn hiển thị dưới dạng người nhận trong email này, sau khi nhấp vào nút Trả lời Tất cả, tất cả địa chỉ tài khoản email được đưa vào hộp Tới, Cc hoặc Bcc. Nhưng thực ra, bạn không muốn các tài khoản email khác của mình nhận được email trả lời này. Nhưng làm thế nào để loại bỏ bản thân mình khỏi trả lời tất cả? Bài viết này sẽ giới thiệu cho bạn các phương pháp để đạt được điều đó.

Tự xóa mình khi gửi email có mã VBA
Một cú nhấp chuột để loại bỏ bản thân tôi khỏi trả lời tất cả với Kutools cho Outlook

Tự xóa mình khi gửi email có mã VBA

Bạn có thể thêm địa chỉ tài khoản email trong Outlook của mình vào mã VBA sau để ngăn việc gửi email cho chính bạn. Hãy làm như sau.

1. nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp đúp vào Project1 > Đối tượng Microsoft Outlook > ĐâyOutlookSession, sau đó sao chép và dán mã VBA bên dưới vào cửa sổ Mã. Xem ảnh chụp màn hình:

Mã VBA: xóa chính tôi khỏi tất cả các email gửi trong 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

Chú ý:

1. Vui lòng thay đổi địa chỉ email trong mã VBA thành tài khoản email của bạn.

2. Đảm bảo rằng tùy chọn Bật tất cả macro được bật. Xem ảnh chụp màn hình:

3. Nhấp vào Lưu nút và đóng Microsoft Visual Basic cho các ứng dụng cửa sổ.

Từ bây giờ, khi bạn gửi email, các địa chỉ email được chỉ định trong tài khoản Outlook của bạn sẽ tự động bị xóa khỏi hộp Tới, Cc hoặc Bcc.

Một cú nhấp chuột để loại bỏ bản thân tôi khỏi trả lời tất cả với Kutools cho Outlook

Như ảnh chụp màn hình sau được hiển thị, để xóa chính tôi khỏi trả lời tất cả trong Outlook, vui lòng thực hiện như sau.

1. Sau khi nhấp vào nút Trả lời Tất cả để tạo email trả lời, vui lòng nhấp vào Kutools > Tên tôi là. Xem ảnh chụp màn hình:

Sau đó, tất cả tên của bạn (địa chỉ tài khoản email) sẽ bị xóa khỏi hộp Tới, Cc hoặc Bcc ngay lập tức.

Nếu bạn muốn dùng thử miễn phí tiện ích này, vui lòng truy cập tải xuống miễn phí phần mềm đầu tiên, và sau đó đi đến áp dụng hoạt động theo các bước trên.