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 at se 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øj > 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 placering af vedhæftede filer.

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

6. klik OK, nu omdøbes vedhæftede filer med samme navn. Hvis der er dubletter, tilføjes de dubletter 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.
 

---

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.

Læs mere ... Hent nu...