Note: The other languages of the website are Google-translated. Back to English
Oturum aç  \/ 
x
or
x
Kaydol  \/ 
x

or

Outlook'ta yalnızca belirli (excel) eki nasıl kaydedilir?

Outlook, bir e-postadaki tüm ekleri aynı anda belirli bir klasöre hızla kaydetmeniz için Tüm Ekleri Kaydet özelliği sağlar. Bununla birlikte, bir e-postada yalnızca belirli türde bir eki kaydetmek istiyorsanız, örneğin Excel eki, Word belgesi vb., Bunu elde etmek için ne yapabilirsiniz? Burada sorunu çözmek için bir VBA yöntemi sunuyoruz.

Outlook'ta yalnızca belirli eki kaydedin


Birden çok seçili e-postadaki tüm ekleri kolayca klasöre kaydedin:

İle Tüm ekleri ayırın yarar Kutools for Excel, tüm ekleri birden fazla seçilen e-postadan Outlook'ta belirtilen klasöre aşağıdaki ekran görüntüsü gibi kolayca kaydedebilirsiniz.

Outlook için Kutools: 40'den fazla kullanışlı Outlook eklentisi ile 45 günde sınırlama olmaksızın ücretsiz olarak deneyin. Hemen indirin ve ücretsiz deneme!

Office Sekmesi - Office'te Sekmeli Düzenleme ve Taramayı Etkinleştirin ve Çalışmayı Çok Daha Kolay Hale Getirin ...
Kutools for Outlook - Microsoft Outlook'a 100 Güçlü Gelişmiş Özellik Getiriyor
  • Otomatik CC / BCC e-posta gönderirken kurallara göre; Otomatik İleri Kurallara göre Birden Fazla E-posta; Otomatik cevap değişim sunucusu olmadan ve daha fazla otomatik özellik ...
  • BCC Uyarısı - posta adresiniz BCC listesindeyse tümünü yanıtlamaya çalıştığınızda mesajı gösterin; Eksik Olduğunda Hatırlatve daha fazlası özellikleri hatırlat ...
  • Tüm Eklerle Yanıtla (Hepsi) posta görüşmesinde; Birçok E-postayı aynı anda yanıtlayın; Otomatik Karşılama Ekleme cevap verdiğinde; Konuya Otomatik Tarih ve Saat Ekle ...
  • Ek Araçları: Otomatik Ayır, Tümünü Sıkıştır, Tümünü Yeniden Adlandır, Tümünü Otomatik Kaydet ... Hızlı rapor, Seçilen Postaları Say, Yinelenen Postaları ve Kişileri Kaldır ...
  • 100'den fazla gelişmiş özellik problemlerinin çoğunu çöz Outlook 2010-2019 ve 365'te. Tüm özellikleri 60 günlük ücretsiz deneme.

Outlook'ta yalnızca belirli eki kaydedin

Aşağıdaki VBA kodu, bir e-postadaki yalnızca belirli ekleri veya birden çok e-postayı belirli bir klasöre kaydetmeye yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. Outlook'unuzu başlatın, posta listesinden, belirli bir eki kaydedeceğiniz bir e-posta veya birden çok 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 20181130
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 & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
                End If
            End If
        Next
        If xItem.BodyFormat <> olFormatHTML Then
            xItem.Body = vbCrLf & "The file(s) were saved to " & xFilesSavePath & vbCrLf & xItem.Body
        Else
            xItem.HTMLBody = "<p>" & "The file(s) were saved to " & xFilesSavePath & "</p>" & xItem.HTMLBody
        End If
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. tık Araçlar > 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.

Daha sonra yalnızca belirtilen ekler kaydedilir.

notlar:

1. Farklı türde ekleri kaydetmek istiyorsanız, lütfen dosya uzantılarını metin kutusuna girin ve virgülle ayırın.

2. Kaydettikten sonra, mesaj gövdesinde bir ek kaydetme yolu görüntülenir. Doğrudan köprüye tıklayarak eki açabilirsiniz.


İ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
 
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.