Çerezler bize hizmetleri sunmak yardımcı olur. Hizmetlerimizi kullanarak, çerez kullanmamızı kabul etmiş olursunuz.
İpucu: Diğer diller Google Çeviri'dir. Ziyaret edebilirsiniz English Bu linkin sürümü.
Oturum aç
x
or
x
x
Şimdi Kayıt Olun
x

or

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

Outlook, tüm ekleri bir e-postada bir kerede belirli bir klasöre hızlı bir şekilde kaydetmeniz için Tüm Ekleri Kaydet özelliğini sağlar. Ancak, Excel eki, Word belgesi vb. Gibi bir e-postada yalnızca belirli bir ek türünü kaydetmek istiyorsanız, bunu başarmak için neler yapabilirsiniz? Burada problemi çözmek için bir VBA yöntemi sağlıyoruz.

Outlook'ta yalnızca belirli ekleri kaydet


Seçilen birden çok e-postadaki tüm ekleri klasöre kolayca kaydedin:

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

Kutools for Outlook: 40'dan fazla kullanışlı Outlook eklentisi, 45 günde herhangi bir sınırlama olmaksızın ücretsiz olarak. Şimdi indirin ve ücretsiz deneme!

Kutools for Outlook: 100 + Yeni Gelişmiş Araçlar Outlook için.
Office Tab: Sekmeli Düzenlemeyi ve Office'te Taramayı Etkinleştirme, Sadece Chrome, Firefox, IE 8 / 9 / 10 gibi.
Klasik Menü: Eski Menüler ve Araç Çubuklarını Geri Getirin 2007, 2010, 2013, 2016 ve 2019.

Outlook'ta yalnızca belirli ekleri kaydet

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

1. Outlook'unuzu başlatın, posta listesinde, belirli ekleri kaydedeceğiniz bir e-posta veya birden çok e-posta seçin.

2. Tuşuna basın. diğer + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic penceresi. Açılan pencerede tıklayın Ekle > modülve sonra Modül penceresine VBA kodunu kopyalayın.

VBA kodu: Bir e-postaya yalnızca belirli ekleri veya bir klasöre birden fazla e-postaları kaydetme

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 kutusunu Microsoft Komut Dosyası Çalışma Zamanı Modülü kutusunu tıklayın ve OK düğmesine basın.

4. Tuşuna basın. F5 kodu çalıştırmak için Dışarıda Klasöre gözat iletişim kutusu, ekleri kaydetmek için bir klasör seçin.

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

Daha sonra sadece 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. Kaydedildikten sonra mesaj gövdesinde bir ek kaydetme yolu görüntülenir. Eklentiyi doğrudan köprüyü tıklayarak açabilirsiniz.


İlgili yazılar:



Kutools for Outlook

Outlook için 100'ten Fazla Gelişmiş İşlevler 2010, 2013, 2016, 2019 ve 365

Banner 201812 için minik görünüm için ekran görüntüsü kutools

Diğer Özellikler | Bedava indir | Yüzlerce işlev için yalnızca $ 39.00

Say something here...
symbols left.
You are guest ( Sign Up? )
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.