Hoe kan ik bijlagen van de e-mail hernoemen en opslaan in een map in Outlook?
In Outlook ontvangt u gewoonlijk berichten met bijlagen, en probeert u de bijlagen van het bericht een andere naam te geven en ze op te slaan in een map zoals hieronder afgebeeld? Het is duidelijk dat je ze in een map kunt opslaan en ze een voor een kunt hernoemen, maar eigenlijk heb ik een VBA-code die snel alle bijlagen met dezelfde naam kan hernoemen en vervolgens in één map kan opslaan.
Hernoem de bijlagen met dezelfde naam en sla ze op in een map
Hernoem en bewaar bijlagen in een map met Kutools voor Outlook
Antwoordbericht met originele bijlagen in Outlook
|
Zoals we allemaal weten, worden de bijgevoegde bijlagen verwijderd uit het oorspronkelijke bericht wanneer u een bericht aan de ontvanger in Outlook beantwoordt. Als je massage wilt beantwoorden met het bewaren van bijlagen, kun je het proberen Kutools for Outlook's Reageer met bijlage functie, het kan één bericht beantwoorden met de originele bijlagen, ook werken voor alle messafe. Klik voor alle functies 60 dagen gratis op proef! |
|
Kutools for Outlook: met tientallen handige Outlook-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. |
- Automatiseer e-mailen met Auto CC / BCC, Automatisch doorsturen door regels; versturen Auto antwoord (Out of Office) zonder dat er een uitwisselingsserver nodig is...
- Ontvang herinneringen zoals BCC-waarschuwing bij het beantwoorden van iedereen terwijl u in de BCC-lijst staat, en Herinner bij ontbrekende bijlagen voor vergeten bijlagen...
- Verbeter de e-mailefficiëntie met Antwoord (allemaal) met bijlagen, Automatisch begroeting of datum en tijd toevoegen aan handtekening of onderwerp, Beantwoord meerdere e-mails...
- Stroomlijn e-mailen met E-mails intrekken, Hulpmiddelen voor bijlagen (Alles comprimeren, Alles automatisch opslaan...), Verwijder duplicaten en Quick Report...
Hernoem de bijlagen met dezelfde naam en sla ze op in een map
1. Selecteer het bericht waarvan u de bijlagen wilt opslaan en hernoem het met dezelfde naam.
2. druk op Alt+F11 keys, dan in het Project1 dubbelklik op het paneel DezeOutlookSessie om een nieuw leeg script in het rechtergedeelte te maken en kopieer en plak de code erin.
VBA: bijlagen hernoemen en opslaan
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. klikken Tools > Referenties, vink in het popping-dialoogvenster aan Microsoft Script-runtime checkbox.
4. klikken OK, druk op F5 sleutel om de code uit te voeren, een Blader naar de map dialoogvenster verschijnt voor het selecteren of maken van een map om bijlagen te plaatsen.
5. klikken OKen geef vervolgens een naam voor de bijlagen.
6. klikken OK, nu worden de bijlagen hernoemd met dezelfde naam, als er duplicaten zijn, worden de dubbele nummers toegevoegd als achtervoegsel.
Hernoem en bewaar bijlagen in een map met Kutools voor Outlook
Eigenlijk zit er een functie in Kutools for Outlook - een handige add-in-tool van Outlook kan alle bijlagen hernoemen voordat ze worden opgeslagen of verzonden.
Kutools for Outlook , Inclusief krachtige functies en tools voor Microsoft Outlook 2016, 2013, 2010 en Office 365. |
||
Gratis installatie Kutools voor Outlook en voer de onderstaande stappen uit:
1. Activeer de e-mail in het nagative-paneel of in het berichtvenster, klik op Kutools > Hulpmiddelen voor bijlagen > Alles hernoemen.
2. Typ in het popping-dialoogvenster de nieuwe naam die u voor elke bijlage gebruikt. Klik OKhebben de bijlagen een nieuwe naam gekregen.
3. Klik met de rechtermuisknop op een bijlage, selecteer Bewaar alle bijlagen, Klik OK en selecteer een map om de bijlagen op te slaan zoals je nodig hebt. Vervolgens zijn de hernoemde bijlagen opgeslagen in een map.
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.