Hvordan gemmes kun specifik (excel) vedhæftet fil i Outlook?

Outlook har en Gem alle vedhæftede filer, så du hurtigt kan gemme alle vedhæftede filer i en e-mail til en bestemt mappe på én gang. Men hvis du kun vil gemme en bestemt vedhæftet fil i en e-mail, såsom Excel-vedhæftet fil, Word-dokument og så videre, hvad kan du gøre for at opnå det? Her giver vi en VBA-metode til at løse problemet.

Gem kun specifik vedhæftet fil i Outlook

Gem kun specifik vedhæftet fil i Outlook

Nedenstående VBA-kode kan hjælpe med kun at gemme en bestemt vedhæftet fil i en e-mail eller flere e-mails i en bestemt mappe. Gør som følger.

1. Start din Outlook, på mailinglisten skal du vælge en e-mail eller flere e-mails, som du vil gemme en bestemt vedhæftet fil fra.

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

Derefter gemmes kun de angivne vedhæftede filer.

Noter:

1. Hvis du vil gemme forskellige typer vedhæftede filer, skal du indtaste filtypen i tekstboksen og adskille dem med komma.

2. Efter lagring vises en vedhæftningsbesparende sti på meddelelsens brødtekst. Du kan åbne den vedhæftede fil ved at klikke direkte på hyperlinket.

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