Outlook'ta Yalnızca Belirli (Excel) Ekleri Nasıl Kaydedilir?

Outlook, bir e-postadaki tüm ekleri aynı anda belirli bir klasöre kaydetmenize yardımcı olmak için Tüm Ekleri Kaydet özelliğini sağlar. Ancak, Excel çalışma kitapları, Word belgeleri vb. gibi bir veya daha fazla e-postaya yalnızca belirli türdeki ekleri kaydetmek istiyorsanız, bunu nasıl başaracaksınız? Bu eğitimde, bu sorunu çözmek için size iki yöntem sunuyoruz.

Outlook'ta yalnızca belirli dosya biçimi eklerini VBA koduyla kaydedin
Harika bir araçla Outlook'ta yalnızca belirli dosya biçimi eklerini kolayca kaydedin

Outlook'ta yalnızca belirli dosya biçimi eklerini VBA koduyla kaydedin

Aşağıdaki VBA kodu, seçilen bir veya daha fazla e-postadaki yalnızca belirli dosya biçimi eklerini belirli bir klasöre kaydetmeye yardımcı olabilir. Lütfen aşağıdaki gibi yapın.

1. Outlook'unuzu başlatın. Posta listesinde, yalnızca belirli bir dosya biçimindeki ekleri kaydetmek istediğiniz bir veya daha fazla e-posta seçin.

2. Tuşuna basın. Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere. Açılan pencerede tıklayın Ekle > modülve ardından VBA kodunu Modül penceresine kopyalayın.

VBA kodu: Bir e-postada yalnızca belirli bir eki veya birden çok e-postayı bir klasöre kaydedin

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
Dim xItem As Object, xFldObj As Object
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFilePath, xFilesSavePath As String
Dim xExtStr As String, xExt As String
Dim xExtArr() As String, xS As Variant
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
xExtStr = InputBox("Attachment Format:" + VBA.vbCrLf + "(Please separate multiple file extensions by comma.. Such as: .docx,.xlsx)", "Kutools for Outlook", xExtStr)
If Len(Trim(xExtStr)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        xFilesSavePath = ""
        For Each xAttachment In xItem.Attachments
            xFilePath = xSaveFolder & xAttachment.FileName
            xExt = "." & xFSO.GetExtensionName(xFilePath)
            xExtArr = VBA.Split(xExtStr, ",")
            xS = VBA.Filter(xExtArr, xExt)
            If UBound(xS) > -1 Then
                xAttachment.SaveAsFile xFilePath
                If xItem.BodyFormat <> olFormatHTML Then
                    xFilesSavePath = xFilesSavePath & vbCrLf & "<file://" & xFilePath & ">"
                Else
                    xFilesSavePath = xFilesSavePath & "
" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. tık Tools > Referanslar, In Referanslar - Proje iletişim kutusu, kontrol edin Microsoft Komut Dosyası Çalışma Zamanı kutusunu tıklayın ve OK düğmesine basın.

4. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Dışarı fırladı Klasöre Göz At iletişim kutusunda ekleri kaydetmek için bir klasör seçin.

5. Ve sonra tıklayın OK, aşağıda Outlook için Kutools iletişim kutusunda, metin kutusuna kaydedeceğiniz ekin dosya uzantısını girin ve tıklayın OK.

Not: Birden çok dosya uzantısı için bunları virgülle ayırmanız gerekir.

Daha sonra yalnızca belirtilen ekler kaydedilir.

Harika bir araçla Outlook'ta yalnızca belirli dosya biçimi eklerini kolayca kaydedin

VBA'da yeniyseniz, burada şunu kullanmanızı öneririz: Tüm ekleri kaydet özelliği Outlook için Kutools. Bu özellik sayesinde, Outlook'ta yalnızca belirli bir dosya biçimindeki ekleri kolayca kaydedebilirsiniz.

1. Yalnızca eklerini belirli bir dosya biçiminde kaydetmek istediğiniz e-postaları seçin.

2. tık Kutools > Ek Araçları > Tümünü kaydet.

3. içinde Ayarları Kaydet iletişim kutusu, aşağıdaki gibi yapılandırmanız gerekir.

3.1) içinde Ekleri bu klasöre kaydedin bölümüne tıklayın. ekleri kaydetmek için bir klasör seçmek için düğme;

3.2) Gelişmiş seçenekler iletişim kutusunu açmak için düğme;

3.3) içinde Filtre koşulları bölümüne bakın, Ek tipi onay kutusunu işaretleyin, ardından metne kaydedeceğiniz eklerin dosya uzantısını girin.

İpuçları: Birden çok dosya uzantısı için bunları noktalı virgülle ayırmanız gerekir.

3.4) OK buton. Ekran görüntüsüne bakın:

4. Ekleri kaydetmek isteyip istemediğinizi hatırlatan bir iletişim kutusu açılır. OK Devam etmek.

5. Ardından, kaç tane ekin kaydedildiğini söyleyen başka bir iletişim kutusu açılır, OK düğmesine basın.

Artık yalnızca belirli dosya biçimi ekleri kaydedilir.

Tıkla okuyun bu özellik hakkında daha fazla bilgi edinmek için.

İlgili yazılar:

• Outlook'ta e-posta iletilerindeki tüm ekler nasıl kaydedilir?
• Outlook'ta tüm ekler e-postadan nasıl kaldırılır?

---

Outlook için Kutools - Outlook'a 100 Gelişmiş Özellik Getirir ve Çalışmayı Çok Daha Kolay Hale Getirir!

• Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Özel olarak birden çok E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
• BCC Uyarısı - tümünü yanıtlamaya çalıştığınızda mesaj göster posta adresiniz BCC listesindeyse; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
• Posta görüşmesindeki Tüm Eklerle Yanıtla (Tümü); Birçok E-postayı Yanıtla saniyeler içinde; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Tarih Ekle ...
• Ek Araçları: Tüm Postalardaki Tüm Ekleri Yönetin, Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Kaydet ... Hızlı Rapor, Seçili Postaları Say...
• Güçlü Önemsiz E-postalar özel olarak; Yinelenen Postaları ve Kişileri Kaldır... Outlook'ta daha akıllı, daha hızlı ve daha iyi yapmanızı sağlar.

Devamı ... Şimdi İndirin...