Hvordan gemmes vedhæftede filer uden at åbne e-mailen i Outlook?

Du skal muligvis ofte gemme vedhæftede filer fra de modtagne e-mails på dine computerdiske. Det er let at gemme en vedhæftet fil eller alle vedhæftede filer fra en e-mail-besked, men hvordan gemmes vedhæftede filer fra flere e-mails på én gang? Normalt skal du gentagne gange åbne e-mails og gemme vedhæftede filer. Er der nogle tricks til at slippe af med de gentagne gange operationer? Her kan metoderne i denne vejledning hjælpe dig.

Gem vedhæftede filer fra en eller flere e-mails uden at åbne med VBA-kode
Gem vedhæftede filer fra en eller flere e-mails uden at åbne med et fantastisk værktøj

Gem vedhæftede filer fra en eller flere e-mails uden at åbne med VBA-kode

Nedenstående VBA-kode kan hjælpe med at gemme vedhæftede filer fra en eller flere e-mails på samme tid uden at åbne e-mails i Outlook. Gør som følger.

1. Vælg en e-mail eller flere e-mails, som du vil gemme vedhæftede filer på, tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Udvid Microsoft Outlook-objekter dobbeltklik på Denne OutlookSession at åbne Kode vindue, og kopier derefter nedenstående VBA-kode ind i det.

VBA-kode: Gem vedhæftede filer uden at åbne e-mails

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. Tryk på F5 nøgle for at køre koden. Så a BrowseForFolder vindue vises, skal du vælge en mappe for at gemme vedhæftede filer, og klik derefter på OK .

Derefter gemmes alle vedhæftede filer i valgte e-mails med det samme i den valgte mappe.

Bemærk: Alle vedhæftede filer frigøres fra e-mails og opbevarer de tilsvarende link til gemte stier i e-mail-kroppen.

Gem vedhæftede filer fra en eller flere e-mails uden at åbne med et fantastisk værktøj

Hvis du er nybegynder i VBA, vil metoden i dette afsnit være dit gode valg.

Her anbefaler Gem alle vedhæftede filer forsyninger af Kutools til Outlook for dig. Hvis du bare vil gemme vedhæftede filer uden at fjerne dem fra valgte e-mails, kan funktionen Gem alle vedhæftede filer hjælpe dig med let at få det gjort. Gør som følger.
Inden du anvender Kutools til Outlook, tak download og installer det for det første.

1. Vælg de e-mails, der indeholder de vedhæftede filer, du vil gemme, klik på Kutools > Vedhæftningsværktøjer > Gem alle.

2. i Gem indstillinger dialogboks skal du:

2.1) I Gem vedhæftede filer i denne mappe sektion, vælg en mappe for at gemme vedhæftede filer;
2.2) Den Gem vedhæftede filer i nedenstående stil feltet er valgfrit for dig at oprette en undermappe med certian-stil for at gemme vedhæftede filer eller omdøbe de gemte vedhæftede filer med certian-stil.
2.3) Klik OK for at begynde at gemme alle vedhæftede filer fra valgte e-mails.

Tips: Med ovenstående konfigurationer gemmes alle vedhæftede filer i den angivne mappe. Hvis du kun vil gemme nogle vedhæftede filer, som f.eks. Kun gemme PDF-filerne med certianordet "faktura" i filnavnet, kan du konfigurere filterbetingelserne som følger.

Klik på knappen Avancerede indstillinger knappen for at udvide Filtertilstands;
Angiv betingelserne ud fra dine behov.
tips: Her tjekker jeg Bilagets navn indeholder feltet, og indtast derefter "faktura" i tekstfeltet, og marker derefter Vedhæftet type i feltet, skal du indtaste ".pdf" i tekstboksen.

3. Klik i den næste dialogboks, der dukker op Ja at fortsætte.

Derefter gemmes vedhæftede filer i valgte e-mails med det samme i den angivne mappe.

Tips: For at fjerne vedhæftede filer fra valgte e-mails og kun efterlade vedhæftede hyperlinks i e-mail-kroppen, Fjern alle vedhæftede filer funktion kan hjælpe.

Hvis du vil have en gratis prøveperiode (60 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.

Relaterede artikler

Download / gem automatisk vedhæftede filer fra Outlook til en bestemt mappe
Generelt kan du gemme alle vedhæftede filer i en e-mail ved at klikke på Vedhæftede filer> Gem alle vedhæftede filer i Outlook. Men hvis du har brug for at gemme alle vedhæftede filer fra alle modtagne e-mails og modtage e-mails, noget ideelt? Denne artikel introducerer to løsninger til automatisk download af vedhæftede filer fra Outlook til en bestemt mappe.

Behold vedhæftede filer, når du svarer i Outlook
Når vi videresender en e-mail-meddelelse i Microsoft Outlook, forbliver originale vedhæftede filer i denne e-mail-meddelelse i den videresendte besked. Når vi svarer på en e-mail-besked, vedhæftes de originale vedhæftede filer imidlertid ikke i den nye svarmeddelelse. Her vil vi introducere et par tricks til at beholde originale vedhæftede filer, når du svarer i Microsoft Outlook.

Søg efter ord inden for vedhæftet fil (indhold) i Outlook
Når vi skriver et nøgleord i feltet Øjeblikkelig søgning i Outlook, søger det nøgleordet i mails, emner, organer, vedhæftede filer osv. Men nu skal jeg bare søge på nøgleordet i vedhæftet filindhold kun i Outlook, nogen idé? Denne artikel viser dig de detaljerede trin til let at søge på ord i vedhæftet filindhold i Outlook.