Tip: Andre sprog er Google-oversat. Du kan besøge English version af dette link.
Log på
x
or
x
x
Tilmeld
x

or

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

Outlook indeholder en funktion 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 type vedhæftning i en e-mail, f.eks. Excel-vedhæftning, 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 alle vedhæftede filer fra flere udvalgte e-mails nemt til mappe:

Med Fjern alle vedhæftede filer nytte af Kutools til Excel, kan du nemt gemme alle vedhæftede filer fra flere valgte e-mails til den angivne mappe i Outlook som vist nedenfor.

Kutools til Outlook: Med mere end 40 handy Outlook-tilføjelser, kan du prøve uden begrænsning i 45 dage. Download og gratis prøveversion nu!

Kutools til Outlook: 100 + Nye avancerede værktøjer for Outlook.
Office-fanen: Aktivér tabbedigering og browsing i Office, Ligesom Chrome, Firefox, IE 8 / 9 / 10.
Klassisk Menu: Tag gamle menuer og værktøjslinjer tilbage til Office 2007, 2010, 2013, 2016 og 2019.

Gem kun specifik vedhæftet fil i Outlook

Den nedenstående VBA-kode kan medvirke til at gemme kun specifik vedhæftning i en e-mail eller flere e-mails til en bestemt mappe. Venligst gør som følger.

1. Start din Outlook, i mailinglisten, vælg en e-mail eller flere e-mails, som du vil gemme specifik vedhæftet fil fra.

2. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue. I åbningsvinduet skal du klikke på indsatte > Moduler, og derefter kopiere under VBA-kode til modulvinduet.

VBA-kode: Gem kun specifik vedhæftning i en e-mail eller flere e-mails til 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, kontroller Microsoft Scripting Runtime boks og klik på OK knappen.

4. Tryk på F5 nøgle til at køre koden. I poppet ud Søg efter mappe dialogboksen, vælg en mappe for at gemme vedhæftede filer.

5. Og så klik OK, i det følgende Kutools til Outlook dialogboksen, skal du indtaste filudvidelsen for den vedhæftede fil, du vil gemme, i tekstfeltet, og klik på OK.

Derefter gemmes kun de specificerede vedhæftede filer.

Noter:

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

2. Efter opbevaring vises en vedhæftelsesbesparelsessti på meddelelseslegemet. Du kan åbne vedhæftet fil ved at klikke på hyperlinket direkte.


Relaterede artikler:



Kutools til Outlook

Mere end 100 Avancerede funktioner til Outlook 2010, 2013, 2016, 2019 og 365

screen shot kutools for outlook lille for banner 201812

Flere funktioner | Gratis download | Kun $ 39.00 til hundredvis af funktioner

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.