Outlook’ta “Tümünü Yanıtla” seçeneğini kullanırken kendimi Alıcılar, Gönderilenler veya Kör Kopya alanlarından nasıl çıkarabilirim?

Outlook’unuzda birden fazla e-posta hesabı varsa, gelen bir e-postayı "Tümünü Yanıtla" ile yanıtlarken bazı sorunlar yaşayabilirsiniz. Örneğin, bir e-postayı tek bir hesabınız aracılığıyla alıyorsunuz ancak "Tümünü Yanıtla" düğmesine bastıktan sonra tüm Outlook e-posta adresleriniz bu e-postanın alıcıları olarak görünüyor ve Alıcı, Gönderilen veya Kör Kopya kutularına dahil ediliyor. Oysa aslında bu yanıt e-postasının kendi diğer e-posta hesaplarınıza gitmesini istemiyorsunuz. Peki "Tümünü Yanıtla" sırasında kendimi nasıl kaldırabilirim? Bu makalede bunu gerçekleştirmenize yardımcı olacak yöntemler önerilmektedir.

E-posta gönderirken kendimi VBA koduyla kaldırma

Kutools for Outlook ile "Tümünü Yanıtla" sırasında kendimi tek tıkla kaldırma

---

E-posta gönderirken kendimi VBA koduyla kaldırma

Kendinize e-posta gönderilmesini önlemek için aşağıdaki VBA koduna Outlook’taki e-posta hesap adreslerinizi ekleyebilirsiniz. Lütfen aşağıdaki adımları uygulayın.

1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.

2. Microsoft Visual Basic for Applications penceresinde, Project1 > Microsoft Outlook Nesneleri > ThisOutlookSession öğesine çift tıklayın ve ardından aşağıdaki VBA kodunu Kod penceresine kopyalayıp yapıştırın. Ekran görüntüsüne bakın:

VBA kodu: Outlook’ta gönderilen tüm e-postalardan kendimi kaldırma

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

3. Kaydet düğmesine tıklayın ve Microsoft Visual Basic for Applications penceresini kapatın.

Artık e-posta gönderdiğinizde, Outlook hesaplarınızın belirtilen e-posta adresi kısmı, Alıcı, Gönderilen veya Kör Kopya kutusundan otomatik olarak kaldırılacak.

---

Kutools for Outlook ile "Tümünü Yanıtla" sırasında kendimi tek tıkla kaldırma

Kutools for Outlook kullanıyorsanız, e-posta gönderirken Alıcı, Gönderilen ve Kör Kopya alanlarından adreslerinizi tek bir tıklamayla kaldırabilirsiniz.

Aşağıdaki ekran görüntüsünde gösterildiği gibi, Outlook’ta “Tümünü Yanıtla” yaparken kendinizi listeden çıkarmak için lütfen aşağıdaki adımları izleyin.

1. "Tümünü Yanıtla" düğmesine basarak bir yanıt e-postası oluşturduktan sonra lütfen Kutools > Adlarım seçeneğine tıklayın. Ekran görüntüsüne bakın:

Böylece tüm adlarınız (e-posta hesap adresleriniz) Alıcı, Gönderilen veya Kör Kopya kutusundan anında kaldırılır.

Bu yardımcı programın ücretsiz deneme sürümünü denemek istiyorsanız, öncelikle yazılımı ücretsiz indirin ve ardından yukarıdaki adımları uygulayın.