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.

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.

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.

Lees verder... Download nu...