Outlook’ta birden fazla e-postadaki tüm ekleri tek seferde bir klasöre nasıl kaydedebilirim?

Outlook’ta yerleşik “Tüm Ekleri Kaydet” özelliğini kullanarak tek bir e-postadaki tüm ekleri kaydetmek oldukça kolaydır. Ancak birden fazla e-postadan tüm ekleri aynı anda kaydetmek istiyorsanız, bunu doğrudan gerçekleştiren bir özellik maalesef bulunmamaktadır. Tüm ekler kaydedilene kadar her e-postada “Tüm Ekleri Kaydet” özelliğini tekrar tekrar uygulamanız gerekir—ki bu da oldukça zaman alıcı olabilir. Bu makalede, Outlook’ta birden fazla e-postanın tüm eklerini toplu olarak belirli bir klasöre kolayca kaydetmeniz için iki pratik yöntem sunuyoruz.

Birden fazla e-postadan tüm ekleri VBA koduyla klasöre kaydetme
Birden fazla e-postadan tüm ekleri harika bir araçla birkaç tıklamayla klasöre kaydetme

Birden fazla e-postadan tüm ekleri VBA koduyla klasöre kaydetme

Bu bölüm, birden fazla e-postadaki tüm ekleri tek seferde belirli bir klasöre hızlıca kaydetmenizi sağlayan adım adım bir VBA kodu örneği sunar. Lütfen aşağıdaki adımları izleyin.

1. İlk olarak, bilgisayarınızda ekleri kaydetmek üzere bir klasör oluşturmanız gerekir.

"Belgeler" klasörüne gidin ve "Attachments" (Ekler) adında bir klasör oluşturun. Ekran görüntüsüne göz atın:

2. Kaydetmek istediğiniz ekleri içeren e-postaları seçin ve ardından "Alt" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini açın.

3. "Modül" penceresini açmak için "Ekle" > "Modül" seçeneğine tıklayın ve ardından aşağıdaki VBA kodlarından birini bu pencereye kopyalayın.

VBA kodu 1: Birden fazla e-postadan ekleri toplu olarak kaydetme (aynı isimli ekleri doğrudan kaydetme)

İpucu: Bu kod, aynı isimdeki ekleri “Dosya Adından Sonra” 1, 2, 3… şeklinde rakamlar ekleyerek kaydeder.

Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            GCount = 0
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            GFilepath = xFilePath
            xFilePath = FileRename(xFilePath)
            If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
    GCount = GCount + 1
    xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
    FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

VBA kodu 2: Birden fazla e-postadan ekleri toplu olarak kaydetme (yinelenenleri denetleme)

Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
    VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
    Set xAttachments = xMailItem.Attachments
    xAttCount = xAttachments.Count
    xSaveFiles = ""
    If xAttCount > 0 Then
        For i = xAttCount To 1 Step -1
            xFilePath = xFolderPath & xAttachments.Item(i).FileName
            xFlag = True
            If VBA.Dir(xFilePath, 16) <> Empty Then
                xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
                If xYesNo = vbNo Then xFlag = False
            End If
            If xFlag = True Then
                xAttachments.Item(i).SaveAsFile xFilePath
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next i
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub

Notlar:

1) Aynı isimdeki tüm ekleri bir klasöre kaydetmek istiyorsanız, yukarıdaki "VBA kodu 1"nu uygulayın. Bu kodu çalıştırmadan önce "Araçlar" > "Referanslar" seçeneğine tıklayın ve "Referanslar - Proje" iletişim kutusunda "Microsoft Scripting Runtime" kutusunu işaretleyin.

2) Yinelenen Ek Adı denetlemek istiyorsanız, "VBA kodu 2"nu uygulayın. Kod çalıştırıldıktan sonra, Ekleri çoğalt değiştirilip değiştirilmeyeceğini size hatırlatan bir iletişim kutusu açılacaktır; ihtiyacınıza göre "Evet" veya "Hayır" seçeneğini belirleyin.

5. Kodu çalıştırmak için F5 tuşuna basın.

Daha sonra seçili e-postalardaki tüm ekler, 1 numaralı adımda oluşturduğunuz klasöre kaydedilir.

Not: Bir “Microsoft Outlook” uyarı kutusu görünebilir; devam etmek için lütfen “İzin Ver” düğmesine tıklayın.

Birden fazla e-postadan tüm ekleri harika bir araçla klasöre kaydetme

VBA konusunda yeniyseniz, “Kutools for Outlook” uygulamasının “Tüm Ekleri Kaydet” özelliğini denemenizi öneririz. Bu sayede Outlook’ta birden fazla e-postadaki tüm ekleri birkaç tıklamayla anında kaydedebilirsiniz.

1. Kaydetmek istediğiniz ekleri içeren e-postaları seçin.

İpucu: Bitişik olmayan birden fazla e-postayı seçmek için "Ctrl" tuşunu basılı tutarak tek tek seçebilirsiniz;
Ya da bitişik birden fazla e-postayı seçmek için ilk ve son e-postayı seçerken "Shift" tuşunu basılı tutun.

2. "KUTOOLS PLUS" > "Ek Araçları" > "Tümünü Kaydet" seçeneğine tıklayın. Ekran görüntüsüne göz atın:

3. "Kaydetme Ayarları" iletişim kutusunda, ekleri kaydetmek için düğmesine tıklayın ve ardından "Tamam" düğmesine basın.

4. Sonraki iki iletişim kutusunda da "Tamam" düğmesine tıklayın; böylece seçili e-postalardaki tüm ekler belirlenen klasöre aynı anda kaydedilir.

Notlar:

• 1. E-postalara göre ekleri farklı klasörlere kaydetmek istiyorsanız, “Aşağıdaki stilde alt klasörler oluştur” seçeneğini işaretleyip açılır menüden bir klasör stili belirleyin.
• 2. Tüm ekleri kaydetmenin yanı sıra, belirli koşullara göre de ekleri kaydedebilirsiniz. Örneğin, yalnızca dosya adında "Invoice" (Fatura) kelimesi geçen PDF eklerini kaydetmek istiyorsanız, koşulları genişletmek için "Gelişmiş Seçenekler" düğmesine tıklayın ve aşağıdaki gibi yapılandırın.
  
• 3. E-postalar geldiğinde ekleri otomatik olarak kaydetmek istiyorsanız, Ekleri Otomatik Kaydet özelliği tam da size göre!
• 4. Seçili e-postalardan ekleri doğrudan ayırmak için Tüm Ekleri Ayır özelliğiyle "Kutools for Outlook" uygulamasından kolaylıkla yararlanabilirsiniz.

İlgili makaleler

---

En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir), E-postaları Zamanlayarak Gönderme, E-posta Gönderirken Kurallara Göre Otomatik CC/BCC, Otomatik Yönlendirme (Gelişmiş Kurallar), Otomatik Selam Eklemesi, Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi:E-postayı Geri Çağırma/Konu Başlıklarına ve Diğer Özelliklere Göre Dolandırıcı E-postaları Engelleme/Yinelenen E-postaları Silme/Gelişmiş Arama/Klasörleri Düzenleme…

📁Ekler Pro: Toplu Kaydetme, Toplu Ayırma, Toplu Sıkıştırma, Otomatik Kaydet, Otomatik Ayır ve Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıklamayla Harikalar:Tümüne Eklerle Yanıtla/Phishing’e Karşı E-postalar/🕘Gönderenin Mevcut Saati – Saat Dilimini Göster…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

Kutools for Outlook’un kilidini tek tıkla hemen açın! Beklemeyin, şimdi indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi      Şimdi İndir      Satın Alma Sayfasına Git

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıkla indirin beş yükleyiciyiaynı anda —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

• ✅Tek tıklama kolaylığı: Tüm beş kurulum paketini tek seferde indirin.
• 🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
• 🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında⬇ Paketi İndir💳 Paketi Satın Al