Note: The other languages of the website are Google-translated. Back to English
Logga in  \/ 
x
or
x
Registrera  \/ 
x

or

Hur sparar jag bara specifik (excel) bilaga i Outlook?

Outlook tillhandahåller funktionen Spara alla bilagor så att du snabbt kan spara alla bilagor i ett e-postmeddelande till en specifik mapp samtidigt. Men om du bara vill spara en specifik bilaga i ett e-postmeddelande, till exempel Excel-bilaga, Word-dokument och så vidare, vad kan du göra för att uppnå det? Här tillhandahåller vi en VBA-metod för att lösa problemet.

Spara endast specifika bilagor i Outlook


Spara enkelt alla bilagor från flera valda e-postmeddelanden i mappen:

Med Lossa alla bilagor nytta av Kutools för Excel, kan du enkelt spara alla bilagor från flera valda e-postmeddelanden till den angivna mappen i Outlook som nedan visas skärmdump.

Kutools för Outlook: med mer än 40 praktiska Outlook-tillägg, gratis att prova utan begränsning på 45 dagar. Ladda ner och testa gratis nu!

Fliken Office - Aktivera redigering och surfning på flikar i Office, och gör arbetet mycket enklare ...
Kutools for Outlook - ger 100 kraftfulla avancerade funktioner till Microsoft Outlook
  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter regler; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden på en gång; Lägg automatiskt till hälsning när svar Lägg automatiskt till datum och tid i ämne ...
  • Tillbehörsverktyg: Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla automatiskt ... Snabbrapport, Räkna utvalda e-postmeddelanden, Ta bort duplicerade e-postmeddelanden och kontakter ...
  • Mer än 100 avancerade funktioner kommer lösa de flesta av dina problem i Outlook 2010-2019 och 365. Fullständiga funktioner 60-dagars gratis provperiod.

Spara endast specifika bilagor i Outlook

Nedanstående VBA-kod kan hjälpa till att bara spara specifik bilaga i ett e-postmeddelande eller flera e-postmeddelanden till en specifik mapp. Gör så här.

1. Starta din Outlook, i e-postlistan, välj ett e-postmeddelande eller flera e-postmeddelanden som du kommer att spara en specifik bilaga från.

2. tryck på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster. Klicka på i öppningsfönstret Insert > Modulernaoch kopiera sedan under VBA-koden till modulfönstret.

VBA-kod: Spara endast specifika bilagor i ett e-postmeddelande eller flera e-postmeddelanden i en mapp

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. klick verktyg > referenserI Referenser - Projekt dialogrutan, kontrollera Microsoft Scripting Runtime ruta och klicka på OK knapp.

4. tryck på F5 för att köra koden. I poppade ut Bläddra efter mapp dialogrutan, välj en mapp för att spara bilagorna.

5. Klicka sedan på OK, i följande Kutools för Outlook dialogrutan, ange filtillägget för den bilaga som du sparar i textrutan och klicka OK.

Då sparas bara de angivna bilagorna.

Anmärkningar:

1. Om du vill spara olika typer av bilagor, skriv in filtilläggen i textrutan och separera dem med kommatecken.

2. När du har sparat visas en sökväg för bilagor i meddelandetexten. Du kan öppna bilagan genom att klicka på hyperlänken direkt.


Relaterade artiklar:


Kutools for Outlook - ger 100 avancerade funktioner till Outlook och gör arbetet mycket enklare!

  • Auto CC / BCC enligt regler när du skickar e-post; Automatisk vidarebefordran Flera e-postmeddelanden efter anpassning; Auto-svar utan växelserver och mer automatiska funktioner ...
  • BCC-varning - visa meddelande när du försöker svara på alla om din e-postadress finns i BCC-listan; Påminn när du saknar bilagor, och mer påminna om funktioner ...
  • Svara (alla) med alla bilagor i e-postkonversationen; Svara många e-postmeddelanden inom sekunder; Lägg automatiskt till hälsning när svar Lägg till datum i ämnet ...
  • Bilagverktyg: Hantera alla bilagor i alla e-postmeddelanden, Auto Lossa, Komprimera alla, Byt namn på alla, Spara alla ... Snabbrapport, Räkna valda mejl...
  • Kraftfulla skräppost efter anpassning; Ta bort duplicerade e-postmeddelanden och kontakter... Gör det möjligt för dig att göra smartare, snabbare och bättre i Outlook.
shot kutools outlook kutools flik 1180x121
shot kutools outlook kutools plus flik 1180x121
 
Say something here...
symbols left.
You are guest
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.