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

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'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...