Gå til hovedindhold

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ø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.

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.

3.1) I Gem vedhæftede filer i denne mappe afsnit, klik på knappen for at vælge en mappe til at gemme de vedhæftede filer;
3.2) Klik på Avancerede indstillinger knappen for at udfolde dialogboksen;
3.3) I Filterbetingelser afsnit, tjek Vedhæftet type afkrydsningsfeltet, og indtast derefter filtypenavnet for de vedhæftede filer, du vil gemme i teksten.
tips: For flere filtypenavne skal du adskille dem med semikolon.
3.4) Klik på OK knap. Se skærmbillede:

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 her 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:


Bedste kontorproduktivitetsværktøjer

Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook

📧 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 ProBatch 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.

Læs mere       Gratis download      Køb
 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations