Kendimi Outlook'ta yanıt vermekten nasıl çıkarabilirim?

Outlook'unuzda birden fazla e-posta hesabı varsa, alınan bir e-postanın tümünü yanıtladığınızda bazı sorunlara neden olur. Örneğin, tek bir hesap üzerinden bir e-posta alıyorsunuz, ancak bu e-postada alıcı olarak görüntülenen tüm Outlook e-posta adresleriniz, Tümünü Yanıtla düğmesini tıkladıktan sonra, tüm e-posta hesabı adresleri Kime, Bilgi veya Gizli kutusuna dahil edilir. Ancak aslında, diğer e-posta hesaplarınızın bu yanıt e-postasını almasını istemezsiniz. Ama kendimi yanıt vermekten nasıl çıkarabilirim? Bu makale size bunu başarmak için yöntemler önerecektir.

VBA kodu ile e-posta gönderirken kendimi kaldır
Outlook için Kutools ile yanıt vermekten kendimi kaldırmak için tek bir tıklama

VBA kodu ile e-posta gönderirken kendimi kaldır

Kendinize e-posta göndermeyi önlemek için Outlook içindeki e-posta hesabı adreslerinizi aşağıdaki VBA koduna ekleyebilirsiniz. Lütfen aşağıdaki işlemleri yapın.

1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklayın Project1 > Microsoft Outlook Nesneleri > Bu OutlookOturumuve ardından VBA kodunu kopyalayıp Kod penceresine yapıştırın. Ekran görüntüsüne bakın:

VBA kodu: Outlook'taki tüm e-postalardan kendimi kaldır

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

notlar:

1. Lütfen VBA kodundaki e-posta adreslerini e-posta hesaplarınızla değiştirin.

2. Tüm makroları etkinleştir seçeneğinin etkinleştirildiğinden emin olun. Ekran görüntüsüne bakın:

3. Tıklayın İndirim düğmesine basın ve kapatın Uygulamalar için Microsoft Visual Basic pencere.

Şu andan itibaren, e-posta gönderirken, Outlook hesaplarınızın belirtilen e-posta adresleri Kime, Bilgi veya Gizli kutusundan otomatik olarak kaldırılacaktır.

Outlook için Kutools ile yanıt vermekten kendimi kaldırmak için tek bir tıklama

Gösterilen aşağıdaki ekran görüntüsü gibi, kendimi Outlook'taki yanıtlardan tamamen çıkarmak için lütfen aşağıdaki işlemleri yapın.

1. Bir yanıt e-postası oluşturmak için Tümünü Yanıtla düğmesini tıkladıktan sonra, lütfen Kutools > Benim adım. Ekran görüntüsüne bakın:

Ardından tüm adlarınız (e-posta hesabı adresleri) Kime, Bilgi veya Gizli kutusundan hemen kaldırılır.

Bu yardımcı programı ücretsiz olarak denemek istiyorsanız, lütfen şu adrese gidin: yazılımı ücretsiz indirin önce ve sonra yukarıdaki adımlara göre işlemi uygulamaya gidin.