Outlook'ta bir e-postadan tüm ekleri nasıl kaldırılır?

Author: Kelly Last Modified: 2025-08-07

Normalde bir e-postayı önizlerken, sağ tıklayıp Ekleri Kaldır seçeneğini belirleyerek bir ek silebilirsiniz. Bazen bir e-posta mesajında birçok ek olabilir ve bunları tek tek kaldırmak can sıkıcı olabilir. İşte size Outlook'ta bir e-postadaki tüm ekleri kaldırmak için iki kolay yöntem sunuyoruz; ayrıca birden fazla e-postadan da tüm ekleri kaldırabilirsiniz.

Outlook'ta tek bir e-posta mesajından tüm ekleri manuel olarak kaldırma
Outlook'ta VBA kodu ile birden fazla e-posta mesajından tüm ekleri kaldırma
Kutools for Outlook ile bir veya birden fazla e-postadan tüm ekleri kolayca kaldırma

Outlook'ta tek bir e-posta mesajından tüm ekleri manuel olarak kaldırma

Outlook'un Ekleri Kaldır özelliği ile seçili e-posta mesajlarındaki tüm ekleri kaldırmak kolaydır.

Adım 1: Daha sonra eklerini kaldıracak olduğunuz e-posta mesajını seçin.

Adım 2: Okuma Bölmesi'ndeki bir ek üzerine tıklayarak Ek Araçlarını etkinleştirin.

doc-save-attachments-1

Adım 3: Ekler sekmesindeki Seçim grubunda Tümünü Seç düğmesine tıklayın.

doc-save-attachments-2

Bu adım, seçili e-posta mesajındaki tüm ekleri aynı anda seçmenizi sağlar.

Adım 4: Ekler sekmesindeki İşlemler grubunda Ekleri Kaldır düğmesine tıklayın.

Adım 5: Uyarı iletişim kutusunda, Ekleri Kaldır düğmesine tıklayın.

doc-save-attachments-3

Daha sonra, bu seçili e-posta mesajındaki tüm ekler mümkün olan en kısa sürede silinir.

Not: Ekleri Kaldır özelliği, Outlook 2010 ve daha yeni sürümlerde iyi çalışır, ancak Outlook 2007'de çalışmaz.

Kutools for Excel'in Tüm Ekleri Ayır özelliği sayesinde, aşağıdaki gösteride olduğu gibi birden fazla seçili e-postadan tüm ekleri kolayca kaldırabilirsiniz. (Ekler belirli bir klasöre kaydedilecektir) Şimdi indirin ve deneyin! (30-gün ücretsiz deneme)

Outlook'ta VBA kodu ile birden fazla e-posta mesajından tüm ekleri kaldırma

Microsoft Outlook'taki birden fazla e-posta mesajından tüm ekleri kaldırmak istiyorsanız, aşağıdaki yöntem size bunu kolayca yapmanıza yardımcı olacaktır. Öncelikle Microsoft Outlook'taki tüm makroları etkinleştirmenizi öneririz.

Adım 1: Belgelerim klasörüne gidin, yeni bir klasör oluşturun ve adını OLAttachments olarak değiştirin.

Adım 2: Daha sonra eklerini kaldıracak olduğunuz birden fazla e-posta mesajını seçin.

Not: Ctrl tuşunu basılı tutarak ve tıklayarak ardışık olmayan e-posta mesajlarını seçebilirsiniz.

Shift tuşunu basılı tutarak ve tıklayarak ardışık e-posta mesajlarını seçebilirsiniz.

Adım 3: Alt tuşuna ve F11 tuşuna aynı anda basarak VBA Düzenleyici'yi açın.

Adım 4: Sol çubuktaki Project1 > Microsoft Outlook Nesneleri'ni genişletin ve ardından ThisOutlookSession öğesine çift tıklayarak Düzenleyici'de açın. Aşağıdaki ekran görüntüsüne bakın:

doc-delete-attachments-4

Adım 5: Aşağıdaki VBA kodunu düzenleme bölmesine kopyalayıp yapıştırın.

Public Sub ReplaceAttachmentsToLink()
Dim objApp As Outlook.Application
Dim aMail As Outlook.MailItem 'Object
Dim oAttachments As Outlook.Attachments
Dim oSelection As Outlook.Selection
Dim i As Long
Dim iCount As Long
Dim sFile As String
Dim sFolderPath As String
Dim sDeletedFiles As String
 
    ' Get the path to your My Documents folder
    sFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
    On Error Resume Next
 
    ' Instantiate an Outlook Application object.
    Set objApp = CreateObject("Outlook.Application")
 
    ' Get the collection of selected objects.
    Set oSelection = objApp.ActiveExplorer.Selection
 
    ' Set the Attachment folder.
    sFolderPath = sFolderPath & "\OLAttachments"
 
    
    ' Check each selected item for attachments. If attachments exist,
    ' save them to the Temp folder and strip them from the item.
    For Each aMail In oSelection
 
    ' This code only strips attachments from mail items.
    ' If aMail.class=olMail Then
    ' Get the Attachments collection of the item.
    Set oAttachments = aMail.Attachments
    iCount = oAttachments.Count
     
       
    If iCount > 0 Then
     
        ' We need to use a count down loop for removing items
        ' from a collection. Otherwise, the loop counter gets
        ' confused and only every other item is removed.
         
        For i = iCount To 1 Step -1
         
            ' Save attachment before deleting from item.
            ' Get the file name.
            sFile = oAttachments.Item(i).FileName
             
            ' Combine with the path to the Temp folder.
            sFile = sFolderPath & "\" & sFile
             
            ' Save the attachment as a file.
            oAttachments.Item(i).SaveAsFile sFile
             
            ' Delete the attachment.
            oAttachments.Item(i).Delete
             
            'write the save as path to a string to add to the message
            'check for html and use html tags in link
            If aMail.BodyFormat <> olFormatHTML Then
                sDeletedFiles = sDeletedFiles & vbCrLf & "<file://" & sFile & ">"
            Else
                sDeletedFiles = sDeletedFiles & "<br>" & "<a href='file://" & _
                sFile & "'>" & sFile & "</a>"
            End If
             
                         
        Next i
        'End If
             
       ' Adds the filename string to the message body and save it
       ' Check for HTML body
       If aMail.BodyFormat <> olFormatHTML Then
           aMail.Body = aMail.Body & vbCrLf & _
           "The file(s) were saved to " & sDeletedFiles
       Else
           aMail.HTMLBody = aMail.HTMLBody & "<p>" & _
           "The file(s) were saved to " & sDeletedFiles & "</p>"
       End If
       
       aMail.Save
       'sets the attachment path to nothing before it moves on to the next message.
       sDeletedFiles = ""
    
       End If
    Next 'end aMail
     
ExitSub:
 
Set oAttachments = Nothing
Set aMail = Nothing
Set oSelection = Nothing
Set objApp = Nothing
End Sub

Adım 6: Bu VBA kodunu çalıştırmak için F5 tuşuna basın.

Şimdi, seçilen e-posta mesajlarındaki tüm ekler kaldırıldı ve her silinen ek için tüm seçilen e-posta mesajlarının alt kısmında köprüler bırakıldı.

doc-delete-attachments-7

Kutools for Outlook ile bir veya birden fazla e-postadan tüm ekleri kolayca kaldırma

Kutools for Outlook'un Tüm Ekleri Ayır özelliği, Outlook'ta bir veya birden fazla seçili e-postadan tüm ekleri hızlıca kaldırabilir. Lütfen aşağıdaki adımları izleyin.

Kutools for Outlook : 100'den fazla kullanışlı Outlook eklentisiyle, 30 gün boyunca sınırsız deneme imkanı.

1. Kaldırmak istediğiniz eklerle bir veya birden fazla e-posta mesajını seçin, ardından Kutools > Ek Araçları > Tümünü Ayır'a tıklayın. Ekran görüntüsüne bakın:

doc-save-attachments-multiple-emails6

2. Ayırma Ayarları iletişim kutusunda lütfen aşağıdaki şekilde yapılandırın.

2.1 Silinen tüm ekleri kaydetmek için bir klasör seçmek üzere Gözat düğmesine tıklayın.
2.2 Varsayılan olarak, Aşağıdaki stilde ekleri ayır kutusu işaretlidir, lütfen ihtiyaçlarınıza göre ekleri farklı klasörlere kaydetmek için bir seçenek seçin.
2.3 Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

doc-save-attachments-multiple-emails7

Notlar:

1. Tüm ekleri aynı klasöre kaydetmek istiyorsanız, Alt klasörler oluştur kutusunun işaretini kaldırın.

2. Ekleri kaldırdıktan sonra, posta listesindeki e-postalardan ek simgesi kaybolacaktır. Ek simgesi hala e-postalarda kalacak şekilde kutusunu işaretleyerek her zaman koruyabilirsiniz.

2. Seçili e-postalardan tüm ekleri kaldırmaya ek olarak, yalnızca belirli koşullara göre ekleri kaldırabilirsiniz. Örneğin, yalnızca boyutu 500KB'dan büyük olan ekleri kaldırmak istiyorsanız, Gelişmiş seçenekler düğmesine tıklayarak koşulları genişletin ve ardından aşağıdaki ekran görüntüsünde gösterildiği gibi yapılandırın.

doc-save-attachments-multiple-emails08

3. Tüm Ekleri Ayır iletişim kutusunda Evet düğmesine tıklayın.

doc-save-attachments-multiple-emails9

4. Ardından, size kaç tane ek silindiğini bildiren bir Kutools for Outlook iletişim kutusu açılacaktır. Tamam düğmesine tıklayın.

doc-save-attachments-multiple-emails10

Şimdi, seçili e-postalarda yalnızca köprüler kalacak şekilde tüm ekler hemen kaldırılır. İhtiyaç duyduğunuzda eklemek için köprüye tıklayabilirsiniz.

Bu yardımcı programın ücretsiz deneme sürümünü (30 gün) kullanmak istiyorsanız, lütfen indirmek için tıklayın ve ardından yukarıdaki adımlara göre işlemi uygulamak için gidin.