Cookies hjelper oss å levere våre tjenester. Ved å bruke våre tjenester, samtykker du til vår bruk av informasjonskapsler.
Tips: Andre språk er Google-oversatt. Du kan besøke English versjon av denne lenken.
Logg inn
x
or
x
x
Registrere
x

or

Hvordan lagrer du bare spesifikk (Excel) vedlegg i Outlook?

Outlook gir en Lagre alle vedlegg-funksjonen for å raskt lagre alle vedlegg i en e-post til en bestemt mappe på en gang. Men hvis du bare vil lagre en bestemt type vedlegg i en e-post, for eksempel Excel-vedlegg, Word-dokument og så videre, hva kan du gjøre for å oppnå det? Her gir vi en VBA-metode for å løse problemet.

Lagre kun bestemt vedlegg i Outlook


Lagre enkelt vedlegg fra flere utvalgte e-poster til mappe enkelt:

Med Løsne alle vedlegg nytte av Kutools for Excel, kan du enkelt lagre alle vedlegg fra flere utvalgte e-poster til spesifisert mappe i Outlook som vist under skjermbilde.

Kutools for Outlook: Med mer enn 40-praktiske Outlook-tillegg, gratis å prøve uten begrensning i 45-dager. Last ned og gratis prøveversjon nå!

Kutools for Outlook: 100 + Nye avanserte verktøy for Outlook.
Office-fanen: Aktiver tabbedigering og surfing på kontoret, Akkurat som Chrome, Firefox, IE 8 / 9 / 10.
Klassisk meny: Ta med gamle menyer og verktøylinjer tilbake til Office 2007, 2010, 2013, 2016 og 2019.

Lagre kun bestemt vedlegg i Outlook

VBA-koden nedenfor kan bidra til å lagre kun bestemt vedlegg i en e-post eller flere e-postadresser til en bestemt mappe. Vennligst gjør som følger.

1. Start Outlook, i adresselisten, velg en e-post eller flere e-postmeldinger du vil lagre bestemt vedlegg fra.

2. trykk andre + F11 nøkler for å åpne Microsoft Visual Basic for Applications vindu. I åpningsvinduet klikker du innfelt > Modules, og kopier deretter under VBA-koden til modulvinduet.

VBA-kode: Lagre kun bestemt vedlegg i en e-post eller flere e-postmeldinger 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. klikk verktøy > Referanser, I Referanser - Prosjekt dialog, sjekk Microsoft Scripting Runtime boksen og klikk på OK knapp.

4. trykk F5 nøkkel for å kjøre koden. I poppet ut Bla etter mappe dialogboksen, velg en mappe for å lagre vedleggene.

5. Og klikk deretter OK, i de neste Kutools for Outlook dialogboksen, skriv inn filtypen for vedlegget du vil lagre i tekstboksen, og klikk OK.

Da blir bare de spesifiserte vedleggene lagret.

Merknader:

1. Hvis du vil lagre forskjellige typer vedlegg, må du skrive inn filtypene i tekstboksen og skille dem med komma.

2. Etter lagring vises en vedleggsparingsbane på meldingslegemet. Du kan åpne vedlegget ved å klikke hyperkoblingen direkte.


Relaterte artikler:



Kutools for Outlook

Mer enn 100 Avanserte funksjoner for Outlook 2010, 2013, 2016, 2019 og 365

skjermbildet kutools for Outlook liten for banner 201812

Flere funksjoner | Gratis nedlasting | Bare $ 39.00 for hundrevis av funksjoner

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.