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 productiviteitstools voor Office
Breaking News: Kutools voor Outlook lanceert gratis versie!
Ervaar de geheel nieuwe gratis versie van Kutools voor Outlook met meer dan70 geweldige functies, voor altijd gratis te gebruiken! Klik om nu te downloaden!
📧 E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP) / E-mails verzenden volgens schema / Automatisch CC/BCC op basis van regels bij het verzenden van e-mails / Automatisch doorsturen (Geavanceerde regels) / Automatisch begroeting toevoegen / E-mails met meerdere ontvangers automatisch splitsen naar individuele berichten ...
📨 E-mailbeheer: E-mail terughalen / Scam-e-mails blokkeren op onderwerp en andere criteria / Dubbele e-mails verwijderen / Geavanceerd Zoeken / Organiseer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch loskoppelen / Batch comprimeren / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
🌟 Interface Magic: 😊Meer mooie en coole emoji's / Herinnering bij belangrijke e-mails / Minimaliseer Outlook in plaats van afsluiten ...
👍 One-click Wonders: Antwoord Allen met Bijlagen / Anti-phishing e-mails / 🕘Toon tijdzone van afzender ...
👩🏼🤝👩🏻 Contacten & Agenda: Batch contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen naar individuele groepen / Verjaardagsherinnering verwijderen ...
