Outlook’ta birden fazla e-postadaki tüm ekleri tek seferde yeni bir e-postaya nasıl kopyalarsınız?

Outlook’ta e-posta eklerini verimli yönetmek zor olabilir—özellikle birden fazla e-postadan ekleri çıkarıp bunları yeni bir e-postaya toplamak veya bir e-postadaki tüm ekleri bir yanıta kopyalamak gerektiğinde. Dosyaları manuel olarak kaydedip tekrar eklemek yalnızca zaman alıcı değil, aynı zamanda hata yapmaya da açıktır. Neyse ki bu görevi kolaylaştırmak için iki etkili yol var. Birden fazla e-postadan ekleri çıkarıp yeni bir e-postaya eklemek için VBA kullanabilirsiniz; ancak bu biraz teknik bilgi gerektirir. Daha hızlı ve sorunsuz bir çözüm arıyorsanız, Kutools for Outlook aracı, bir e-postadaki tüm ekleri tek tıklamayla anında yanıt e-postasına kopyalamanızı sağlar ve bu da onu en verimli, en kullanıcı dostu seçenek haline getirir.

VBA kullanarak birden fazla e-postadan tüm ekleri bir Yeni Email’ye kopyalayın(Manuel ve Teknik)

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

---

VBA kullanarak birden fazla e-postadan tüm ekleri bir Yeni Email’ye kopyalayın

VBA kullanarak süreci otomatikleştirmeyi tercih ediyorsanız, birden fazla e-postadaki tüm ekleri hızlıca çıkarıp yeni bir e-postaya kopyalamak için aşağıdaki adımları izleyebilirsiniz.

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

Outlook’ta, eklerini kopyalamak istediğiniz e-postaları seçin.

• Bitişik olmayan birden fazla e-postayı seçmek için Ctrl tuşunu basılı tutun.
• Bitişik e-posta dizisini seçmek için "Shift" tuşunu basılı tutun.

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

"Microsoft Visual Basic for Applications" penceresini açmak için **Alt + F11** tuşlarına basın.

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

Yeni bir modül oluşturmak için  "Ekle" > "Modül" seçeneğine tıklayın. Ardından aşağıdaki VBA kodunu modül penceresine yapıştırın:

VBA: Birden fazla e-postadan tüm ekleri bir Yeni Email’ye 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.

---

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

Daha basit ve hızlı bir çözüm için "Kutools for Outlook"taki **Orijinal Ek ile Yanıtla** özelliğini kullanın. Bu yöntem, VBA kodu veya manuel ek kopyalama zahmetine gerek kalmadan, bir e-postadaki tüm ekleri tek tıklamayla doğrudan yanıtınızda paylaşmanıza olanak tanır.

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

2. Artık seçilen e-postadaki tüm ekler, yanıt e-postasına otomatik olarak kopyalanıyor.

---

İlgili Makaleler

Outlook’ta bir eki başka bir e-postaya nasıl kopyalarsınız?