Hvordan gemmer man kun specifik (Excel) vedhæftet fil i Outlook?
Outlook indeholder funktionen Gem alle vedhæftede filer for at hjælpe dig med at gemme alle vedhæftede filer i en e-mail til en bestemt mappe på én gang. Men hvis du kun vil gemme bestemte typer vedhæftede filer i en eller flere e-mails, såsom Excel-projektmapper, Word-dokumenter og så videre, hvordan opnår du det? I denne tutorial giver vi dig to metoder til at løse dette problem.
Gem kun vedhæftede filer i specifikke filformater i Outlook med VBA-kode
Gem nemt kun bestemte filformatvedhæftede filer i Outlook med et fantastisk værktøj
Gem kun vedhæftede filer i specifikke filformater i Outlook med VBA-kode
Følgende VBA-kode kan hjælpe med kun at gemme vedhæftede filer i specifikke filformater i en eller flere udvalgte e-mails til en bestemt mappe. Gør venligst som følger.
1. Start din Outlook. I postlisten skal du vælge en eller flere e-mails, hvorfra du kun vil gemme vedhæftede filer i et bestemt filformat.
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 20210617
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 & "
" & "" & xFilePath & ""
End If
End If
Next
xItem.Save
End If
Next
Set xFSO = Nothing
End Sub
3. klik Værktøjer > 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.
Bemærk: For flere filtypenavne skal du adskille dem med kommaer.
Derefter gemmes kun de angivne vedhæftede filer.
Gem nemt kun bestemte filformatvedhæftede filer i Outlook med et fantastisk værktøj
Hvis du er ny til VBA, anbefaler vi dig her at bruge Gem alle vedhæftede filer træk ved Kutools til Outlook. Med denne funktion kan du nemt kun gemme vedhæftede filer i et bestemt filformat i Outlook.
1. Vælg de e-mails, hvorfra du kun vil gemme vedhæftede filer i et bestemt filformat.
2. klik Kutools > Vedhæftningsværktøjer > Gem alle.
3. i Gem indstillinger dialogboks, skal du konfigurere som følger.
4. En dialogboks dukker op, der minder dig om, om du vil gemme de vedhæftede filer, klik OK at fortsætte.
5. Så dukker en anden dialogboks op for at fortælle dig, hvor mange vedhæftede filer der er blevet gemt, klik på OK .
Nu gemmes kun de specifikke vedhæftede filformater.
Klik link. at vide mere om denne funktion.
Hvis du vil have en gratis prøveperiode (30 dage) af dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.
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?
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.