Hoe hernoem en sla je bijlagen van een e-mail op in een map in Outlook?
In Outlook ontvang je vaak e-mails met bijlagen. Wil je de bijlagen van een e-mail hernoemen en in een map opslaan, zoals te zien is in onderstaande schermafbeelding? Natuurlijk kun je ze handmatig één voor één opslaan en hernoemen, maar met een VBA-code kun je snel alle bijlagen dezelfde naam geven en ze in één map opslaan.
Bijlagen hernoemen en met dezelfde naam in een map opslaan
Bijlagen hernoemen en opslaan in een map met Kutools voor Outlook
Bijlagen hernoemen en met dezelfde naam in een map opslaan
1. Selecteer het bericht waarvan je de bijlagen wilt opslaan en dezelfde naam wilt geven.
2. Druk op "Alt" + "F11", dubbelklik vervolgens in het "Project1"-venster op "ThisOutlookSession" om een nieuw leeg script aan te maken aan de rechterkant, en kopieer en plak de code daarin.
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. Klik op "Extra" > "Verwijzingen" en vink in het dialoogvenster dat verschijnt het vakje "Microsoft Script Runtime" aan.
 |  |  |
4. Klik op "OK" en druk op "F5" om de code uit te voeren. Er verschijnt een dialoogvenster "Bladeren naar map" waarmee je een map kunt selecteren of aanmaken om de bijlagen in op te slaan.
5. Klik OK, geef vervolgens een naam op voor de bijlagen.
6. Klik op "OK". Nu zijn de bijlagen hernoemd met dezelfde naam. Als er dubbele bijlagen zijn, krijgen deze een nummer als achtervoegsel.
Antwoordbericht met originele bijlagen in Outlook |
| Zoals we allemaal weten, worden de bijgevoegde bijlagen verwijderd uit het originele bericht wanneer je een bericht beantwoordt naar de ontvanger in Outlook. Als je een bericht wilt beantwoorden terwijl je de bijlagen behoudt, kun je de functie Antwoorden met Bijlage van Kutools voor Outlook proberen. Deze functie kan een bericht beantwoorden met de originele bijlagen en werkt ook voor alle berichten. Klik hier voor alle functies 30 dagen gratis proefversie! |
 |
| Kutools voor Outlook: met tientallen handige Outlook-add-ins, gratis te proberen zonder beperkingen gedurende 30 dagen. |
Bijlagen hernoemen en opslaan in een map met Kutools voor Outlook
Eigenlijk is er een functie in Kutools voor Outlook — een handige add-in voor Outlook waarmee je alle bijlagen kunt hernoemen voordat je ze opslaat of verzendt.
Installeer Kutools voor Outlook gratis en volg daarna onderstaande stappen:
1. Activeer de e-mail in het navigatievenster of in het berichtvenster, klik op "Kutools" > "Bijlagenhulpmiddelen" > "Alles hernoemen".
2. Typ in het dialoogvenster dat verschijnt de nieuwe naam die je voor elke bijlage wilt gebruiken. Klik op "OK"; de bijlagen zijn nu hernoemd.
3. Klik met de rechtermuisknop op een bijlage, kies "Bijlagen opslaan", klik op "OK" en selecteer een map om de bijlagen op te slaan zoals gewenst. De hernoemde bijlagen zijn nu in een map opgeslagen.
Beste Office-productiviteitstools
Breaking News: Kutools for Outlook lanceert een gratis versie!
Ervaar de geheel nieuwe Kutools for Outlook met meer dan100 fantastische functies! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (Beschikbaar voor POP en IMAP) / Schema E-mail verzenden / Automatisch CC/BCC per Regel bij Verzenden / Automatisch doorsturen (Geavanceerde regels) / Begroeting automatisch toevoegen / Meerdere ontvangers automatisch opsplitsen naar individuele E-mail...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en anderen / Duplicaat verwijderen / Geavanceerd Zoeken / Organiseer mappen...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren...
🌟 Interface-magie: 😊Meer mooie en gave emoji's / Herinneren wanneer belangrijke e-mails binnenkomen / Outlook minimaliseren in plaats van afsluiten...
👍 Wonders met één klik: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Tijdzone van de afzender weergeven...
👩🏼🤝👩🏻 Contacten & Agenda: Batch toevoegen van contacten vanuit geselecteerde E-mails / Contactgroep opsplitsen naar individuele groepen / Verjaardagsherinnering verwijderen...
Gebruik Kutools in je voorkeurt taal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 andere talen!
🚀 Eén klik downloaden — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Met één klik download je vijf installatiepakketten tegelijk — Kutools voor Excel, Outlook, Word, PowerPoint en Office Tab Pro. Klik om nu te downloaden!
- ✅ Eén-klik gemak: Download alle vijf de installaties in één actie.
- 🚀 Klaar voor elke Office-taak: Installeer de invoegtoepassingen die je nodig hebt, wanneer je ze nodig hebt.
- 🧰 Inclusief: Kutools voor Excel / Kutools for Outlook / Kutools voor Word / Office Tab Pro / Kutools voor PowerPoint