Note: The other languages of the website are Google-translated. Back to English

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.

  Ü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 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.
shot kutools görünüm kutools sekmesi 1180x121
shot kutools görünüm kutools artı sekme 1180x121
 
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır