Outlook'ta bir klasöre e-postanın eklerini nasıl yeniden adlandırıp kaydedebilirim?

Author: Sun Last Modified: 2025-06-10

Outlook'ta genellikle ek içeren e-postalar alabilirsiniz ve aşağıdaki ekran görüntüsünde gösterildiği gibi bu e-postaların eklerini yeniden adlandırmayı ve bir klasöre kaydetmeyi denediniz mi? Açıkça, bunları bir klasöre kaydedebilir ve tek tek yeniden adlandırabilirsiniz. Ancak aslında, tüm ekleri aynı ada sahip olarak hızlıca yeniden adlandıran ve tek bir klasöre kaydeden bir VBA kodum var.
doc rename save attach 1

Aynı ada sahip ekleri bir klasöre yeniden adlandırın ve kaydedin

Kutools for Outlook ile bir klasöre ekleri yeniden adlandırın ve kaydedin

Aynı ada sahip ekleri bir klasöre yeniden adlandırın ve kaydedin

1. Eklerini kaydetmek ve aynı ada yeniden adlandırmak istediğiniz e-postayı seçin.

2. "Alt" + "F11" tuşlarına basın, ardından "Proje1" bölmesinde "ThisOutlookSession" öğesine çift tıklayarak sağ bölümde yeni boş bir betik oluşturun, ardından kodu buraya kopyalayıp yapıştırın.

VBA: Ekleri yeniden adlandırın ve kaydedin

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
On Error Resume Next
Set xFldObj = CreateObject("Shell.Application").browseforfolder(0, "Select a Folder", 0, 16)
Set xFSO = New Scripting.FileSystemObject
If xFldObj Is Nothing Then Exit Sub
xSaveFolder = xFldObj.Items.Item.Path & "\"
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

doc rename save attachments in a folder 2

3. "Araçlar" > "Referanslar" seçeneğine tıklayın, açılan iletişim kutusunda "Microsoft Script Runtime" onay kutusunu işaretleyin.

doc rename save attachments in a folder 3

doc rename save attachments in a folder 4

4. "Tamam" seçeneğine tıklayın, kodu çalıştırmak için "F5" tuşuna basın, ekleri yerleştireceğiniz bir klasör seçmek veya oluşturmak için bir "Klasör Seç" iletişim kutusu açılacaktır.
doc rename save attachments in a folder 5

5. Tıklayın Tamam, ardından ekler için bir isim belirleyin.
doc rename save attachments in a folder 6

6. "Tamam" seçeneğine tıklayın, şimdi ekler aynı ada sahip olarak yeniden adlandırıldı. Eğer yinelenenler varsa, yinelenenlere son ek olarak numaralar eklenecektir.

Outlook'ta orijinal eklerle yanıt mesajı

Hepimizin bildiği gibi, Outlook'ta bir mesajı yanıtlayarak alıcıya gönderdiğinizde, eklentiler orijinal mesajdan kaldırılır. Eğer ekleri koruyarak yanıtlamak isterseniz, Kutools for Outlook'un Ekli Yanıtla işlevini deneyebilirsiniz. Bu özellik, bir mesajı orijinal ekleriyle birlikte yanıtlayabilir ve tüm mesajlar için de çalışır. Tam özellikler için tıklayın 30 günlük ücretsiz deneme sürümüne erişin!

Kutools for Outlook: Düzinece kullanışlı Outlook eklentisi ile 30 gün boyunca sınırlama olmadan ücretsiz deneyin.

Kutools for Outlook ile bir klasöre ekleri yeniden adlandırın ve kaydedin

Aslında, Outlook için kullanışlı bir eklenti aracı olan "Kutools for Outlook" içinde, tüm ekleri kaydetmeden veya göndermeden önce yeniden adlandırabilen bir özellik bulunmaktadır.

Kutools for Outlook: 100'den fazla temel ve gelişmiş özelliği kilidini açın! 70'ten fazla özelliği ücretsiz olarak kullanın. Ücretsiz versiyonu hemen indirin ve keşfedin!

ücretsiz yükleyin Kutools for Outlook'u ve ardından aşağıdaki adımları izleyin:

1. Negatif bölmede veya Mesaj kutusunda e-postayı etkinleştirin, "Kutools" > "Ek Araçları" > "Tümünü Yeniden Adlandır" seçeneğine tıklayın.
doc rename save attach 2

2. Açılır iletişim kutusunda, her bir ek için kullanacağınız yeni adı yazın. "Tamam" seçeneğine tıklayın, ekler yeni adlarla yeniden adlandırılmış olacaktır.
doc rename save attach 3

3. Bir eke sağ tıklayın, "Tüm Ekleri Kaydet" seçeneğini seçin, "Tamam" seçeneğine tıklayın ve ekleri kaydetmek için bir klasör seçin. Daha sonra yeniden adlandırılmış ekler bir klasöre kaydedilmiş olacaktır.
doc rename save attach 5