Hvordan omdøbes og gemmes vedhæftede filer i e-mailen i en mappe i Outlook?

I outlook modtager du muligvis beskeder med vedhæftede filer normalt, og forsøger du at omdøbe vedhæftede filer til meddelelsen og gemme dem i en mappe som vist nedenstående skærmbillede? Det er klart, at du kan gemme dem i en mappe og omdøbe dem en efter en, men faktisk har jeg en VBA-kode, der hurtigt kan omdøbe alle vedhæftede filer med samme navn og derefter gemme i en mappe.

Omdøb og gem vedhæftede filer med samme navn i en mappe

Omdøb og gem vedhæftede filer i en mappe med Kutools til Outlook

---

Besvar besked med originale vedhæftede filer i Outlook

Som vi alle vidste, fjernes de vedhæftede vedhæftede filer fra den oprindelige besked, når du besvarer en besked til modtageren i Outlook. Hvis du vil svare på massage med vedligeholdelse af vedhæftede filer, kan du prøve Kutools til Outlook's Svar med vedhæftet fil funktion, kan den svare en besked med de originale vedhæftede filer, fungerer også for alle messafe.    Klik for alle funktioner 60 dages gratis prøveperiode!

Kutools til Outlook: med snesevis af praktiske Outlook-tilføjelsesprogrammer, der er gratis at prøve uden begrænsning på 60 dage.

Omdøb og gem vedhæftede filer med samme navn i en mappe

1. Vælg den meddelelse, som du vil gemme dens vedhæftede filer, og omdøb til det samme navn.

2. Trykke Alt + F11 keys, derefter i Project1 dobbeltklik på ruden Denne OutlookSession for at oprette et nyt tomt script i højre sektion, kopier og indsæt derefter koden til det.

VBA: Omdøb og gem vedhæftede filer

Public Sub SaveAttachsToDisk()
'UpdatebyExtendoffice20180521
Dim xItem As Object  'Outlook.MailItem
Dim xSelection As Selection
Dim xAttachment As Outlook.Attachment
Dim xFldObj As Object
Dim xSaveFolder As String
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
Dim xFilePath As String
Dim xNewName, xTmpName As String
Dim xExt As String
Dim xCount As Integer
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
xNewName = InputBox("Attachment Name:", "Kutools for Outlook", xNewName)
If Len(Trim(xNewName)) = 0 Then Exit Sub
For Each xItem In xSelection
    For Each xAttachment In xItem.Attachments
        xFilePath = xSaveFolder & xAttachment.FileName
        xAttachment.SaveAsFile xFilePath
        Set xFile = xFSO.GetFile(xFilePath)
        xCount = 1
        Saved = False
        xExt = "." & xFSO.GetExtensionName(xFilePath)
        xTmpName = xNewName
        xNewName = xTmpName & xExt
        If xFSO.FileExists(xSaveFolder & xNewName) = False Then
            xFile.Name = xNewName
            xNewName = xTmpName
        Else
            xTmpName = Left(xNewName, Len(xNewName) - Len(xExt))
            While Saved = False
                xNewName = xTmpName & xCount & xExt
                If xFSO.FileExists(xSaveFolder & xNewName) = False Then
                    xFile.Name = xNewName
                    xNewName = xTmpName
                    Saved = True
                Else
                    xCount = xCount + 1
                End If
            Wend
        End If
    Next
Next
Set xFSO = Nothing
End Sub

3. klik Værktøjer > Referencer, i poppedialogen, skal du kontrollere Microsoft Script Runtime afkrydsningsfelt.

4. klik OK, tryk på F5 nøgle til at køre koden, a Gennemse for mappe dialogboksen vises for at vælge eller oprette en mappe til at placere vedhæftede filer.

5. klik OK, og giv derefter et navn til vedhæftede filer.

6. klik OK, nu omdøbes de vedhæftede filer med samme navn, hvis der er dubletter, vil duplikaterne blive tilføjet numre som suffikset.

Omdøb og gem vedhæftede filer i en mappe med Kutools til Outlook

Faktisk er der en funktion i Kutools til Outlook - et praktisk addin-værktøj i Outlook kan omdøbe alle vedhæftede filer, før de gemmes eller sendes.

Gratis installation Kutools til Outlook, og gør derefter som nedenstående trin:

1. Aktivér e-mailen i den nagative rude eller i meddelelsesboksen, som du vil, klik på Kutools > Vedhæftningsværktøjer > Omdøb alle.

2. I poppedialogen skal du skrive det nye navn, du bruger til hver vedhæftet fil. Klik på OK, vedhæftede filer er blevet omdøbt med nye navne.
 

3. Højreklik på en vedhæftet fil, vælg Gem alle vedhæftede filerklik OK og vælg en mappe for at gemme vedhæftede filer, som du har brug for. Derefter er de omdøbte vedhæftede filer gemt i en mappe.
 

---

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.

Læs mere       Gratis download      Køb