Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

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 nemt alle vedhæftede filer fra flere valgte e-mails i mappen:

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 nedenstående skærmbillede viste.

Kutools til Outlook: med mere end 40 praktiske Outlook-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 45 dage. Download og gratis prøveversion nu!

Fanen Office - Aktiver redigering og browsing med faner i Office, og gør arbejdet meget nemmere ...
Kutools til Outlook - bringer 100 kraftige avancerede funktioner til Microsoft Outlook
  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter regler; 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 ...
  • Besvar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på én gang; Tilføj automatisk hilsen når svar Tilføj automatisk dato og tid til emne ...
  • Vedhæftningsværktøjer: Automatisk afmontering, Komprimer alt, Omdøb alt, Gem alle automatisk ... Hurtig rapport, Tæl valgte mails, Fjern duplikerede mails og kontakter ...
  • Mere end 100 avancerede funktioner vil løse de fleste af dine problemer i Outlook 2010-2019 og 365. Fuld funktioner i 60-dages gratis prøveperiode.

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:


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.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 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.