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.

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.
Ücretsiz deneme yapmak istiyorsanız (30-gün) bu yardımcı programın, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
İ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.

