Outlook'ta birden fazla e-postadan tüm ekleri yeni bir e-postaya nasıl kopyalayabilirim?
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ıt içine kopyalamak gerektiğinde. 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 yol 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 bir 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 Tavsiye Edilen)
VBA kullanarak birden fazla e-postadan tüm ekleri yeni bir e-postaya kopyalayın
İşlemi otomatikleştirmek için VBA kullanmayı tercih ederseniz, birden fazla e-postadan tüm ekleri hızlı bir şekilde çıkarmak ve yeni bir e-postaya kopyalamak için aşağıdaki adımları izleyebilirsiniz.
Adım 1: Birden fazla e-posta seçin
Outlook'ta, kopyalamak istediğiniz ekleri içeren e-postaları seçin.
- Yan yana olmayan birden fazla e-postayı seçmek için "Ctrl" tuşuna basın.
- Bitişik bir dizi e-postayı 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.
Sınırlamalar:
- ❌ VBA bilgisi gerektirir: Başlangıç seviyesi için uygun değildir ve kodla çalışma içerir.
- ❌ Manuel kurulum gerekir: Her seferinde VBA düzenleyisini 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: Eklentileri 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. Üzücü manuel işlemlere veda edin ve gelen kutunuzu kolayca kontrol edin.
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 Yanıtla Özgün Ek özelliğini kullanabilirsiniz. Bu yöntem, VBA veya manuel ek kopyalama işlemine gerek kalmadan, bir e-postadaki tüm ekleri tek tıklamayla doğrudan yanıt e-postasına kopyalamanıza olanak tanır.
Outlook verimsizliğine veda edin! Kutools for Outlook, toplu e-posta işleme işini kolaylaştırır - artık ücretsiz AI destekli özelliklerle! Kutools for Outlook'u Şimdi İndirin!!
1. Posta görünümünde, yanıt vermek istediğiniz e-postayı seçin. Ardından "Kutools" > "Özgün Ek ile Yanıtla veya Tümüne Özgün Ek ile Yanıtla" seçeneğine tıklayın.
2. Artık seçilen e-postadaki tüm ekler otomatik olarak yanıt e-postasına kopyalanmıştır.
Kutools for Outlook yönteminin avantajları:
- ✅ Manuel kopyalama veya yapıştırma yok: 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.
İlgili Makaleler
Outlook'ta bir ek başka bir e-postaya nasıl kopyalanır?
En İyi Ofis Verimlilik Araçları
Son Dakika: Kutools for Outlook Ücretsiz Sürümünü Sunmaya Başladı!
Yepyeni Kutools for Outlook ile100'den fazla etkileyici özelliği deneyimleyin! Şimdi indir!
📧 E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Zamanla / E-posta Gönderirken Kurala Göre Otomatik CC/BCC / Gelişmiş Kurallar ile Otomatik Yönlendirme / Selamlama Ekle / Çoklu Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Böl...
📨 E-posta Yönetimi: E-postayı Geri Çağır / Konu veya diğer kriterlere göre dolandırıcılık amaçlı e-postaları engelle / Yinelenen e-postaları sil / Gelişmiş Arama / Klasörleri Düzenle...
📁 Ekler Pro: Toplu Kaydet / Toplu Ayır / Toplu Sıkıştır / Otomatik Kaydet / Otomatik Ayır / Otomatik Sıkıştır...
🌟 Arayüz Büyüsü: 😊 Daha Fazla Şık ve Eğlenceli Emoji / Önemli e-postalar geldiğinde uyarı / Outlook'u kapatmak yerine küçült...
👍 Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Kimlik Avı E-postalarına Karşı Koruma / 🕘 Gönderenin Saat Dilimini Göster...
👩🏼🤝👩🏻 Kişiler & Takvim: Seçilen E-postalardan Toplu Kişi Ekle / Bir Kişi Grubunu Bireysel Gruplara Böl / Doğum günü hatırlatıcısını kaldır...
Kutools'u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve40'tan fazla başka dili destekler!
🚀 Tek Tıkla İndir — Tüm Ofis Eklentilerini Edinin
Şiddetle Tavsiye Edilen: Kutools for Office (5'i1 arada)
Tek tıkla beş kurulum paketini birden indirin — Kutools for Excel, Outlook, Word, PowerPoint ve Office Tab Pro. Şimdi indir!
- ✅ Tek tık kolaylığı: Beş kurulum paketinin hepsini tek seferde indirin.
- 🚀 Her türlü Ofis görevi için hazır: İhtiyacınız olan eklentileri istediğiniz zaman yükleyin.
- 🧰 Dahil olanlar: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint