Hoe hernoemt en bewaart u e-mailbijlagen direct in een map in Outlook?
In Outlook ontvangt u doorgaans berichten met bijlagen. Hebt u al geprobeerd de bijlagen van zo’n bericht te hernoemen en op te slaan in een map, zoals in de onderstaande schermafbeelding wordt getoond? Uiteraard kunt u ze één voor één opslaan en handmatig hernoemen — maar met een eenvoudige VBA-code kunt u alle bijlagen razendsnel met dezelfde naam hernoemen en in één map opslaan.
Bijlagen hernoemen en opslaan met dezelfde naam in een map
Bijlagen hernoemen en opslaan in een map met Kutools voor Outlook
Bijlagen hernoemen en opslaan met dezelfde naam in een map
1. Selecteer het bericht waarvan u de bijlagen wilt opslaan en hernoemen naar dezelfde naam.
2. Druk op de toetsencombinatie "Alt" + "F11". Dubbelklik vervolgens in het deelvenster "Project1" op „ThisOutlookSession" om een nieuw, leeg script te maken in het rechtergedeelte en kopieer de code hierin.
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' > 'Referenties' en schakel in het dialoogvenster dat verschijnt het selectievakje 'Microsoft Script Runtime' in.
 |  |  |
4. Klik op „OK" en druk op de toets "F5" om de code uit te voeren. Vervolgens verschijnt het dialoogvenster „Bladeren naar map", waarin u een bestaande map kunt selecteren of een nieuwe map kunt aanmaken om de bijlagen in op te slaan.
5. Klik op OK en geef vervolgens een naam op voor de bijlagen.
6. Klik op 'OK'. De bijlagen zijn nu hernoemd met dezelfde naam; duplicaten krijgen automatisch een nummer als achtervoegsel.
Beantwoord bericht met originele bijlagen in Outlook |
| Zoals u waarschijnlijk weet, worden bijlagen uit het oorspronkelijke bericht automatisch verwijderd wanneer u een e-mail beantwoordt in Outlook. Wilt u een bericht beantwoorden én de bijlagen behouden? Probeer dan deze handige functie! Hiermee beantwoordt u één bericht – inclusief alle originele bijlagen – en het werkt zelfs voor al uw berichten.Klik voor alle functies op een gratis proefperiode van 30 dagen!Kutools voor Outlook's Beantwoorden met bijlage |
 |
| 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
Er is eigenlijk een handige functie beschikbaar in „Kutools voor Outlook” – een praktische invoegtoepassing voor Outlook waarmee u alle bijlagen kunt hernoemen vóór het opslaan of verzenden.
Gratis installeren Kutools voor Outlook, en volg daarna de onderstaande stappen:
1. Activeer de e-mail naar wens in het navigatiedeelvenster of in het berichtvenster. Klik op **Kutools** > **Bijlagenhulpmiddelen** > **Alles hernoemen**.
2. Typ in het verschijnende dialoogvenster de nieuwe naam die u voor elke bijlage wilt gebruiken en klik op 'OK'. De bijlagen zijn nu hernoemd naar de nieuwe naam.
3. Klik met de rechtermuisknop op een bijlage, selecteer 'Alle bijlagen opslaan', klik op 'OK' en kies de gewenste map om de bijlagen op te slaan. De hernoemde bijlagen staan nu netjes opgeslagen in die map.
Beste Office-productiviteitstools
Beleef de gloednieuwe Kutools voor Outlook met 100+ ongelooflijke functies!Klik nu om te downloaden!
📧E-mailautomatisering: Automatisch antwoorden (beschikbaar voor POP en IMAP), e-mails plannen om te verzenden, automatisch CC/BCC toepassen op basis van regels bij het verzenden van e-mails, automatisch doorsturen (geavanceerde regels), automatisch een begroeting toevoegen en e-mails met meerdere ontvangers automatisch splitsen in afzonderlijke berichten…
📨E-mailbeheer: E-mail terughalen, spam-e-mails blokkeren op basis van onderwerp en andere criteria, dubbele e-mails verwijderen, geavanceerd zoeken en mappen organiseren…
📁Bijlagen Pro: Batch opslaan, batch loskoppelen, batch comprimeren, automatisch opslaan, automatisch loskoppelen en automatisch comprimeren…
🌟Interface-magie: 😊 Nog meer mooie en coole emoji’s / Waarschuwt u bij binnenkomst van belangrijke e-mails / Minimaliseert Outlook in plaats van het programma te sluiten...
👍Eénklikwonderen: Antwoord Allen met Bijlagen / Anti-phishing-e-mails / 🕘Huidige tijd van afzender-zone weergeven...
👩🏼🤝👩🏻Contacten & agenda: Batch Contact toevoegen vanuit geselecteerde e-mails / Een contactgroep splitsen in afzonderlijke groepen / Verjaardagsherinnering verwijderen…
Gebruik Kutools in uw voorkeurstaal – ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan 40 andere talen!
🚀 Eénklikdownload — Ontvang alle Office-invoegtoepassingen
Sterk aanbevolen: Kutools for Office (5-in-1)
Eén klik om vijf installatiebestandentegelijk te downloaden —Kutools voor Excel, Outlook, Word, PowerPointen Office Tab Pro.Klik nu om te downloaden!
- ✅Eénkliksgemak: Download alle vijf installatiepakketten in één keer.
- 🚀Klaar voor elke Office-taak: Installeer de invoegtoepassingen die u nodig heeft, precies op het moment dat u ze nodig heeft.
- 🧰Inbegrepen: Kutools voor Excel / Kutools voor Outlook / Kutools voor Word / Office Tab Pro / Kutools for PowerPoint