Outlook'ta e-postayı açmadan ekler nasıl kaydedilir?

Sıklıkla alınan e-postalardaki ekleri bilgisayarınızın disklerine kaydetmeniz gerekebilir. Bir e-posta mesajındaki bir eki veya tüm ekleri kaydetmek kolaydır, ancak birden çok e-postadaki ekleri aynı anda nasıl kaydedebilirsiniz? Normalde, e-postaları tekrar tekrar açmanız ve ekleri kaydetmeniz gerekir. Tekrar tekrar yapılan işlemlerden kurtulmanın püf noktaları var mı? İşte bu eğitimdeki yöntemler size yardımcı olabilir.

VBA kodu ile açmadan bir veya daha fazla e-postadaki ekleri kaydedin
Harika bir araçla açmadan bir veya daha fazla e-postadaki ekleri kaydedin

VBA kodu ile açmadan bir veya daha fazla e-postadaki ekleri kaydedin

Aşağıdaki VBA kodu, e-postaları Outlook'ta açmadan aynı anda bir veya daha fazla e-postadan ekleri kaydetmeye yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

1. Ekleri kaydedeceğiniz bir e-posta veya birden fazla e-posta seçin, Ara Toplam + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. Genişletin Microsoft Outlook Nesneleri klasör, çift tıklayın Bu OutlookOturumu açmak için Kod penceresini açın ve ardından aşağıdaki VBA kodunu içine kopyalayın.

VBA kodu: E-postaları açmadan ekleri kaydedin

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
    xHtml = xItem.HTMLBody
    xID = "cid:" & xCid
    If InStr(xHtml, xID) > 0 Then
        IsEmbeddedAttachment = True
    End If
End If
End Function

4. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Sonra bir Klasör İçin Gözat penceresi açılır, lütfen ekleri kaydetmek için bir klasör seçin ve ardından OK düğmesine basın.

Ardından, seçilen e-postalardaki tüm ekler hemen seçilen klasöre kaydedilir.

Not: Tüm ekler e-postalardan ayrılacak ve ilgili kayıt yolu bağlantılarını e-posta gövdesinde tutacaktır.

Harika bir araçla açmadan bir veya daha fazla e-postadaki ekleri kaydedin

VBA'da acemi iseniz, bu bölümdeki yöntem sizin iyi seçiminiz olacaktır.

İşte tavsiye Tüm ekleri kaydet yararları Outlook için Kutools senin için. Ekleri seçili e-postalardan ayırmadan kaydetmek istiyorsanız, Tüm ekleri Kaydet özelliği bunu kolayca yapmanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
Outlook için Kutools'u uygulamadan önce lütfen indir ve yükle birinci olarak.

1. Kaydedeceğiniz ekleri içeren e-postaları seçin, tıklayın Kutools > Ek Araçları > Tümünü kaydet.

2. içinde Ayarları Kaydet iletişim kutusu, yapmanız gerekenler:

2.1) içinde Ekleri bu klasöre kaydedin bölümünde ekleri kaydetmek için bir klasör seçin;
2.2) Ekleri aşağıdaki stilde kaydedin kutusu, ekleri kaydetmek için certian stilinde bir alt klasör oluşturmanız veya kaydedilen ekleri certian stili ile yeniden adlandırmanız için isteğe bağlıdır.
2.3) Tıklayın OK Seçilen e-postalardan tüm ekleri kaydetmeye başlamak için.

İpuçları: Yukarıdaki konfigürasyonlarla, tüm ekler belirtilen klasöre kaydedilecektir. Dosya adında yalnızca sertifika kelimesi "fatura" olan PDF dosyalarını kaydetmek gibi yalnızca bazı sertifika eklerini kaydetmek istiyorsanız, filtre koşullarını aşağıdaki gibi yapılandırabilirsiniz.

Tıkla Gelişmiş seçenekler genişletme düğmesi Filtre koşulus;
İhtiyaçlarınıza göre koşulları belirtin.
İpuçları: Burada kontrol ediyorum Ek adı içerir kutusu ve ardından metin kutusuna "fatura" yazın, ardından Ek tipi kutusunda, metin kutusuna ".pdf" yazın.

3. Bir sonraki açılır iletişim kutusunda, Evet Devam etmek.

Ardından, seçilen e-postalardaki ekler aynı anda belirtilen klasöre kaydedilir.

İpuçları: Seçilen e-postalardan ekleri çıkarmak ve e-posta gövdesinde yalnızca ek köprülerini bırakmak için, Tüm ekleri ayırın özelliği yardımcı olabilir.

Bu yardımcı programın ücretsiz denemesine (60 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.

İlgili Makaleler

Ekleri otomatik olarak Outlook'tan belirli bir klasöre indirin / kaydedin
Genel olarak, bir e-postanın tüm eklerini Ekler> Outlook'ta Tüm Ekleri Kaydet'e tıklayarak kaydedebilirsiniz. Ancak, alınan tüm e-postalardaki ve e-postaları alan tüm ekleri kaydetmeniz gerekiyorsa, herhangi bir ideal var mı? Bu makale, ekleri Outlook'tan belirli bir klasöre otomatik olarak indirmek için iki çözüm sunacaktır.

Outlook'ta yanıtlarken ekleri sakla
Microsoft Outlook'ta bir e-posta iletisini ilettiğimizde, bu e-posta iletisindeki orijinal ekler iletilen iletide kalır. Ancak, bir e-posta mesajını yanıtladığımızda, orijinal ekler yeni yanıt mesajına eklenmeyecektir. Burada, Microsoft Outlook'ta yanıt verirken orijinal ekleri korumayla ilgili birkaç püf noktası sunacağız.

Outlook'ta ek (içerik) içindeki kelimeleri ara
Outlook'taki Anında Arama kutusuna bir anahtar sözcük yazdığımızda, anahtar sözcükleri e-postaların konuları, gövdeleri, ekleri vb. İçinde arayacaktır. Ama şimdi anahtar sözcüğü yalnızca Outlook'ta ek içeriğinde aramam gerekiyor, herhangi bir fikriniz var mı? Bu makale, Outlook'ta ek içeriği içindeki kelimeleri kolayca aramak için ayrıntılı adımları gösterir.