Hvordan gemmer man kun specifik (Excel) vedhæftet fil i Outlook?

Outlook indeholder funktionen Gem alle vedhæftede filer for at hjælpe dig med at gemme alle vedhæftede filer i en e-mail til en bestemt mappe på én gang. Men hvis du kun vil gemme bestemte typer vedhæftede filer i en eller flere e-mails, såsom Excel-projektmapper, Word-dokumenter og så videre, hvordan opnår du det? I denne tutorial giver vi dig to metoder til at løse dette problem.

Gem kun vedhæftede filer i specifikke filformater i Outlook med VBA-kode
Gem nemt kun bestemte filformatvedhæftede filer i Outlook med et fantastisk værktøj

Gem kun vedhæftede filer i specifikke filformater i Outlook med VBA-kode

Følgende VBA-kode kan hjælpe med kun at gemme vedhæftede filer i specifikke filformater i en eller flere udvalgte e-mails til en bestemt mappe. Gør venligst som følger.

1. Start din Outlook. I postlisten skal du vælge en eller flere e-mails, hvorfra du kun vil gemme vedhæftede filer i et bestemt filformat.

2. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue. Klik på i åbningsvinduet indsatte > Moduler, og kopier derefter under VBA-koden til modulvinduet.

VBA-kode: Gem kun specifik vedhæftet fil i en e-mail eller flere e-mails i en mappe

Public Sub SaveSpecifyAttachments()
'Updated by ExtendOffice 20210617
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 & "
" & "" & xFilePath & ""
                End If
            End If
        Next
        xItem.Save
    End If
Next
Set xFSO = Nothing
End Sub

3. klik Værktøj > ReferencerI Referencer - Projekt dialog, skal du kontrollere Microsoft Scripting Runtime og klik på OK .

4. Tryk på F5 nøgle for at køre koden. I sprang ud Søg efter mappe dialogboks, skal du vælge en mappe for at gemme vedhæftede filer.

5. Klik derefter på OK, i det følgende Kutools til Outlook i dialogboksen, skal du indtaste filtypen af ​​den vedhæftede fil, du vil gemme, i tekstboksen og klikke på OK.

Bemærk: For flere filtypenavne skal du adskille dem med kommaer.

Derefter gemmes kun de angivne vedhæftede filer.

Gem nemt kun bestemte filformatvedhæftede filer i Outlook med et fantastisk værktøj

Hvis du er ny til VBA, anbefaler vi dig her at bruge Gem alle vedhæftede filer træk ved Kutools til Outlook. Med denne funktion kan du nemt kun gemme vedhæftede filer i et bestemt filformat i Outlook.

1. Vælg de e-mails, hvorfra du kun vil gemme vedhæftede filer i et bestemt filformat.

2. klik Kutools > Vedhæftningsværktøjer > Gem alle.

3. i Gem indstillinger dialogboks, skal du konfigurere som følger.

3.1) I Gem vedhæftede filer i denne mappe afsnit, klik på knappen for at vælge en mappe til at gemme de vedhæftede filer;

3.2) Klik på Avancerede indstillinger knappen for at udfolde dialogboksen;

3.3) I Filterbetingelser afsnit, tjek Vedhæftet type afkrydsningsfeltet, og indtast derefter filtypenavnet for de vedhæftede filer, du vil gemme i teksten.

tips: For flere filtypenavne skal du adskille dem med semikolon.

3.4) Klik på OK knap. Se skærmbillede:

4. En dialogboks dukker op, der minder dig om, om du vil gemme de vedhæftede filer, klik OK at fortsætte.

5. Så dukker en anden dialogboks op for at fortælle dig, hvor mange vedhæftede filer der er blevet gemt, klik på OK .

Nu gemmes kun de specifikke vedhæftede filformater.

Klik her at vide mere om denne funktion.

Relaterede artikler:

• Hvordan gemmes alle vedhæftede filer fra e-mail-beskeder i Outlook?
• Hvordan fjernes alle vedhæftede filer fra e-mail i Outlook?

---

Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

• Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
• BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
• Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
• Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
• Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.

Læs mere ... Hent nu...