Ga naar hoofdinhoud

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.
doc hernoemen opslaan bijvoegen 1

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 alle functies 60 dagen gratis op proef!
 
doc antwoord met bijlage
 
Kutools for Outlook: met tientallen handige Outlook-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen.
Office-tabblad - Schakel bewerken en bladeren met tabbladen in Microsoft Office in, waardoor werken een fluitje van een cent wordt
Kutools voor Outlook - Geef Outlook een boost met meer dan 100 geavanceerde functies voor superieure efficiëntie
Geef uw Outlook 2021 - 2010 of Outlook 365 een boost met deze geavanceerde functies. Geniet van een uitgebreide gratis proefperiode van 60 dagen en verbeter uw e-mailervaring!

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

doc hernoemen bijlagen opslaan in een map 2

3. klikken Tools > Referenties, vink in het popping-dialoogvenster aan Microsoft Script-runtime checkbox.

doc hernoemen bijlagen opslaan in een map 3 doc pijl naar rechts doc hernoemen bijlagen opslaan in een map 4

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.
doc hernoemen bijlagen opslaan in een map 5

5. klikken OKen geef vervolgens een naam voor de bijlagen.
doc hernoemen bijlagen opslaan in een map 6

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  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 bijlagenAlles hernoemen.
doc hernoemen opslaan bijvoegen 2

2. Typ in het popping-dialoogvenster de nieuwe naam die u voor elke bijlage gebruikt. Klik OKhebben de bijlagen een nieuwe naam gekregen.
doc hernoemen opslaan bijvoegen 3 

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.
doc hernoemen opslaan bijvoegen 5 
doc hernoemen opslaan bijvoegen 5


Beste Office-productiviteitstools

Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven

🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...

???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP)  /  Plan het verzenden van e-mails  /  Automatische CC/BCC volgens regels bij het verzenden van e-mail  /  Automatisch doorsturen (geavanceerde regels)   /  Begroeting automatisch toevoegen   /  Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...

📨 email management: Gemakkelijk e-mails herinneren  /  Blokkeer zwendel-e-mails van onderwerpen en anderen  /  Verwijder dubbele e-mails  /  Uitgebreid Zoeken  /  Consolideer mappen ...

📁 Bijlagen ProBatch opslaan  /  Batch losmaken  /  Batchcompressie  /  Automatisch opslaan   /  Automatisch loskoppelen  /  Automatisch comprimeren ...

???? Interface-magie: 😊Meer mooie en coole emoji's   /  Verhoog uw Outlook-productiviteit met weergaven met tabbladen  /  Minimaliseer Outlook in plaats van te sluiten ...

???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen  /   Antiphishing-e-mails  /  🕘Toon de tijdzone van de afzender ...

👩🏼‍🤝‍👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails  /  Splits een contactgroep in individuele groepen  /  Verwijder verjaardagsherinneringen ...

Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.

 

 

Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks, it is ridiculous that we have to go to these lengths to do something that should be handled by the application
This comment was minimized by the moderator on the site
Hi! How can this work if having multiple emails? Is this only for multiple attachments in same email? Thanks!
This comment was minimized by the moderator on the site
Hey there! Do you know how we can improve the below code to rename the file when saved?

Public Sub UnzipFileInOutlook(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\acheng\Desktop"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder
Set objAtt = Nothing
Next
End Sub
This comment was minimized by the moderator on the site
Hello, Lipe, may be this code can help you.

Private Sub CopyToDefaultCalendarFld(ByVal Item As Object)
Dim xCopiedAppointment As Outlook.AppointmentItem
Dim xMovedAppointment As Outlook.AppointmentItem
Dim xMeeting As MeetingItem
Dim xApoint As AppointmentItem
On Error Resume Next
If Item.Class = olAppointment Then
Set xApoint = Item
Set xCopiedAppointment = xApoint.Copy
Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
If xApoint.Subject <> xMovedAppointment.Subject Then
If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
End If
End If
ElseIf Item.Class = olMeetingRequest Then
Set xMeeting = Item
Set xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy
Set xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder)
If xMeeting.Subject <> xMovedAppointment.Subject Then
If InStr(1, xMovedAppointment.Subject, "Copy: ") > 0 Then
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy: ", "", 1, 1)
xMovedAppointment.Save
End If
End If
xCopiedAppointment.Delete
End If
Set xCopiedAppointment = Nothing
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations