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 volledige functies 60 dagen gratis proefperiode! |
![]() |
Kutools for Outlook: met tientallen handige Outlook-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen. |
- Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
- BCC-waarschuwing - toon bericht wanneer u iedereen probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
- Beantwoorden (alle) met alle bijlagen in het mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
- Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
- Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2021 - 2010 of Office 365. Volledige functies 60 dagen gratis op proef.
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 Toolbox > 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
100
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.
Kutools voor Outlook - Brengt 100 geavanceerde functies naar Outlook en maakt het werk veel gemakkelijker!
- Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails op maat; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
- BCC-waarschuwing - toon bericht wanneer u alle probeert te beantwoorden als uw e-mailadres in de BCC-lijst staat; Herinner bij ontbrekende bijlagen, en meer herinneren functies ...
- Beantwoorden (alle) met alle bijlagen in het e-mailgesprek; Beantwoord veel e-mails in seconden; Begroeting automatisch toevoegen wanneer antwoord; Datum toevoegen aan onderwerp ...
- Hulpmiddelen voor bijlagen: beheer alle bijlagen in alle e-mails, Automatisch loskoppelen, Alles comprimeren, Alles hernoemen, Alles opslaan ... Snel rapport, Tel geselecteerde e-mails...
- Krachtige ongewenste e-mails op maat; Verwijder dubbele e-mails en contacten... Stel u in staat om slimmer, sneller en beter te doen in Outlook.





