Outlook’ta bir e-postadaki tüm ekleri nasıl kaldırabilirim?

Normalde bir e-postayı önizlerken, bir eki sağ tıklayıp Eki Kaldır seçeneğini seçerek silebilirsiniz. Ancak bazen bir e-posta mesajında çok sayıda ek bulunabilir ve bunları tek tek kaldırmak oldukça sıkıcı olabilir. İşte tam bu yüzden, Outlook’ta tek bir e-postadaki tüm ekleri veya birden fazla e-postadaki tüm ekleri anında kaldırmak için size iki kolay yöntem sunuyoruz.

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

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

Seçili bir e-posta mesajındaki tüm ekleri, Outlook'un Ekleri Kaldır özelliğiyle kolayca kaldırabilirsiniz.

Adım 1: Daha sonra eklerini kaldırmak istediğiniz e-posta mesajını seçin.

Adım 2: Ek Araçları sekmesini etkinleştirmek için Okuma Bölmesi’nde yer alan eklerden herhangi birine tıklayın.

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

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

Adım 4: Ekler sekmesindeki Eylemler grubundan Eki Kaldır düğmesine tıklayın.

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

Böylece seçili e-posta mesajlarındaki tüm ekler en kısa sürede silinir.

Not: Ekleri Kaldır özelliği, Outlook 2010 ve sonraki sürümlerde sorunsuz çalışırken, Outlook 2007'de desteklenmez.

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

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

Adım 1:Belgelerimklasörüne gidin, bir Yeni Klasör oluşturun ve adına OLAttachments

Adım 2: Daha sonra eklerini kaldırmak istediğiniz birden fazla e-posta mesajını seçin.

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

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

Adım 3: VBA Düzenleyici'yi açmak için Alt ve F11 tuşlarına aynı anda basın.

Adım 4: Sol çubukta Project1 > Microsoft Outlook Nesneleri öğesini genişletin ve ardından ThisOutlookSession öğesini düzenleyicide açmak için çift tıklayın. Aşağıdaki ekran görüntüsüne bakın:

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.

Artık seçili e-posta mesajlarındaki tüm ekler kaldırıldı ve her silinen ek için alt kısımda bir bağlantı bırakıldı.

Kutools for Outlook ile bir veya birden fazla e-postadaki tüm ekleri kolayca kaldırın

Tüm Ekleri Ayır yardımcısı, Kutools for Outlook ile Outlook’ta bir veya birden fazla seçili e-postadan tüm ekleri hızla ayırmayı sağlar. 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 olarak ücretsiz deneyin!30 gün boyunca sınırsız olarak ücretsiz deneyin.

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

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

• 2,1 Silinen tüm ekleri kaydetmek için Gözat düğmesine tıklayın.
• 2,2 Varsayılan olarak,Aşağıdaki stile sahip ekleri ayır kutusu işaretlidir. Eklentileri ihtiyaçlarınıza göre e-postalara göre farklı klasörlere kaydetmek için lütfen bir seçenek belirleyin.
• 2,3 Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:

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

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

Artık tüm ekler anında kaldırıldı ve seçili e-postalarda yalnızca köprüler kaldı. İhtiyacınız olduğunda ilgili eki açmak için bu köprüye tıklayabilirsiniz.

---

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