Outlook'ta birden fazla e-postadan tüm ekleri yeni bir e-postaya nasıl kopyalayabilirsiniz?

Author: Kelly Last Modified: 2025-08-07

Outlook'ta e-posta eklerini etkili bir şekilde yönetmek zor olabilir, özellikle birden fazla e-postadan ekleri çıkarmak ve bunları yeni bir e-postada birleştirmek veya bir e-postadaki tüm ekleri bir yanıtta kopyalamak istediğinizde. Dosyaları manuel olarak kaydetmek ve yeniden eklemek yalnızca zaman alıcı değil, aynı zamanda hatalara da açık. Neyse ki, bu görevi basitleştirmek için iki etkili yöntem var. Birden fazla e-postadan ekleri çıkarmak ve yeni bir e-postaya eklemek için VBA kullanabilirsiniz, ancak bu biraz teknik bilgi gerektirir. Ancak daha hızlı ve sorunsuz bir çözüm için Kutools for Outlook aracı, bir e-postadaki tüm ekleri tek tıklamayla anında yanıt e-postasına kopyalama seçeneği sunar; bu da en verimli ve kullanıcı dostu seçenek haline gelir.

VBA kullanarak birden fazla e-postadan tüm ekleri yeni bir e-postaya kopyalayın (Manuel ve Teknik)

Harika bir araçla bir e-postadaki tüm ekleri yanıt e-postasına anında kopyalayın 👍 (Zahmetsiz ve Önerilen)

VBA kullanarak birden fazla e-postadan tüm ekleri yeni bir e-postaya kopyalayın

İşlemi otomatikleştirmek için VBA kullanmayı tercih ediyorsanız, birden fazla e-postadan tüm ekleri hızlı bir şekilde çıkarmak ve yeni bir e-postaya kopyalamak için şu adımları izleyebilirsiniz.

Adım 1: Birden fazla e-posta seçin

Outlook'ta, kopyalamak istediğiniz ekleri içeren e-postaları seçin.

Birden fazla bitişik olmayan e-posta seçmek için "Ctrl" tuşuna basın.
Bitişik bir dizi e-posta seçmek için "Shift" tuşuna basın.

Adım 2: VBA düzenleyiciyi açın

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

Adım 3: Yeni bir modüle VBA kodunu ekleyin

"Ekle" > "Modül" seçeneğine tıklayarak yeni bir modül oluşturun. Ve aşağıdaki VBA kodunu modül penceresine yapıştırın:

VBA: Birden fazla e-postadan tüm ekleri yeni bir e-postaya kopyalayın

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

Adım 4: VBA kodunu çalıştırın

Kodu çalıştırmak için "F5" tuşuna basın veya Çalıştır düğmesine tıklayın. Seçilen e-postalardan çıkarılan tüm ekleri içeren yeni bir e-posta açılacaktır.

Dezavantajlar:

❌ VBA bilgisi gerektirir: Başlangıç seviyesinde olanlar için uygun değildir ve kodla çalışmayı içerir.
❌ Manuel kurulum gerekir: Her seferinde VBA düzenleyiciyi açmanız, kodu eklemeniz ve çalıştırmanız gerekir.
❌ Olası güvenlik kısıtlamaları: Bazı Outlook sürümleri, güvenlik politikaları nedeniyle makroları engelleyebilir.
❌ Esneklik yok: Ekleri tekrar kopyalamanız gerektiğinde betiği yeniden çalıştırmanız gerekir.

📂 Birden Fazla E-postadan Ekleri Rahatça Kaydedin

Outlook'da ekleri tek tek kaydetmekten bıktınız mı? Kutools for Outlook ile iş akışınızı hızlandırın! Güçlü Tümünü Kaydet (Ekler) özelliği, birkaç tıklamayla birden fazla e-postadan veya tüm klasörlerden ekleri kaydetmenizi sağlar. Yorucu manuel işlemlere veda edin ve gelen kutunuzu kolayca kontrol altına alın.

Kutools for Outlook'u Şimdi İndirin

Harika bir araçla bir e-postadaki tüm ekleri yanıt e-postasına anında kopyalayın 👍

Daha basit ve hızlı bir çözüm için "Kutools for Outlook" içindeki Orijinal Eklentilerle Yanıtla özelliğini kullanabilirsiniz. Bu yöntem, VBA veya manuel eklenti kopyalamaya gerek kalmadan, bir e-postadaki tüm ekleri tek tıklamayla doğrudan yanıt e-postasına kopyamanıza olanak tanır.

Kutools for Outlook ile en üst düzey e-posta verimliliğini açın! Sonsuza kadar tamamen ücretsiz olarak 70 güçlü özelliğe erişin. Ücretsiz Sürümü Şimdi İndirin!

1. Posta görünümünde, yanıt vermek istediğiniz e-postayı seçin. Ardından "Kutools" > "Orijinal Eklentilerle Yanıtla veya Orijinal Eklentilerle Tümünü Yanıtla" seçeneğine tıklayın.

the screenshot of copying attchment to a replying email using Kutools 1

2. Artık seçilen e-postadaki tüm ekler otomatik olarak yanıt e-postasına kopyalanmıştır.

the screenshot of copying attchment to a replying email using Kutools 2

Kutools for Outlook yönteminin avantajları:

✅ Manuel kopyalama veya yapıştırma gerekmez: Bir tıklamayla anında çalışır.
✅ VBA kodlamaya gerek yok: Kullanıcı dostu ve sorunsuz.
✅ Zaman kazandırır: Manuel yöntemlere kıyasla çaba harcamayı önemli ölçüde azaltır.
✅ Tüm Outlook sürümleriyle uyumlu: Makro kısıtlamaları veya güvenlik uyarıları yok.

Not: Kutools for Outlook'un Orijinal Eklentilerle Yanıtla yardımcı programını kullanmak için önce Kutools for Outlook'u indirip yüklemeniz gerekir.