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. |
- Automatiser e-mail med Auto CC / BCC, Automatisk videresendelse ved regler; sende Auto svar (Ikke til stede) uden at kræve en udvekslingsserver...
- Få påmindelser som BCC Advarsel når du svarer til alle, mens du er på BCC-listen, og Påmind, når du mangler vedhæftede filer for glemte vedhæftede filer...
- Forbedre e-mail-effektiviteten med Svar (alle) med vedhæftede filer, Tilføj automatisk hilsen eller dato og tid til signatur eller emne, Besvar flere e-mails...
- Strømline e-mail med Genkald e-mails, Vedhæftningsværktøjer (Komprimer alle, Gem alt automatisk...), Fjern duplikaterog Hurtig rapport...
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.
Kutools for Outlook , Indeholder kraftfulde funktioner og værktøjer til Microsoft Outlook 2016, 2013, 2010 og Office 365. |
||
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.