Note: The other languages of the website are Google-translated. Back to English

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 volledige functies 60 dagen gratis proefperiode!
 
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 browsen met tabbladen in Office in en maak het werk veel gemakkelijker ...
Kutools for Outlook - Brengt 100 krachtige geavanceerde functies naar Microsoft Outlook
  • Auto CC / BCC volgens regels bij het verzenden van e-mail; Automatisch doorsturen Meerdere e-mails volgens regels; Auto antwoord zonder uitwisselingsserver, en meer automatische functies ...
  • BCC-waarschuwing - toon bericht wanneer u iedereen 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 mailgesprek; Beantwoord veel e-mails tegelijk; Begroeting automatisch toevoegen wanneer antwoord; Datum en tijd automatisch toevoegen aan onderwerp ...
  • Hulpmiddelen voor bijlagen: Automatisch loskoppelen, alles comprimeren, alles hernoemen, alles automatisch opslaan ... Quick Report, Tel geselecteerde e-mails, Dubbele e-mails en contacten verwijderen ...
  • Meer dan 100 geavanceerde functies zullen los de meeste van uw problemen op in Outlook 2021 - 2010 of Office 365. Volledige functies 60 dagen gratis op proef.

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 Toolbox > 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
100
 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


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.
shot kutools outlook kutools tabblad 1180x121
shot kutools vooruitzichten kutools plus tabblad 1180x121
 
Heb je vragen? Stel ze hier. (4)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Hoi! Weet u hoe we de onderstaande code kunnen verbeteren om het bestand te hernoemen wanneer het wordt opgeslagen?

Openbare sub UnzipFileInOutlook (itm As Outlook.MailItem)
Dim objAtt As Outlook.Bijlage
Dim saveFolder als tekenreeks
saveFolder = "C:\Gebruikers\acheng\Desktop"
Voor elke objAtt In itm.Bijlagen
objAtt.SaveAsFile saveFolder
Stel objAtt = Niets in
Volgende
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo, Lipe, misschien kan deze code je helpen.

Private Sub CopyToDefaultCalendarFld (ByVal-item als object)
Dim xCopiedAppointment als Outlook.AppointmentItem
Dim xMovedAppointment als Outlook.AppointmentItem
Dim xMeeting als MeetingItem
Dim xApoint als afspraakitem
On Error Resume Next
Als Item.Class = olAppointment Dan
Stel xApunt = Artikel in
Stel xCopiedAppointment = xApoint.Copy in
Stel xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder) in
Als xApoint.Subject <> xMovedAppointment.Subject Dan
If InStr(1, xMovedAppointment.Subject, "Copy:") > 0 Dan
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy:", "", 1, 1)
xVerplaatstAfspraak.Opslaan
End If
End If
ElseIf Item.Class = olMeetingRequest Dan
Stel xVergadering = Item in
Stel xCopiedAppointment = xMeeting.GetAssociatedAppointment(True).Copy in
Stel xMovedAppointment = xCopiedAppointment.Move(GMovedCalendarFolder) in
Als xMeeting.Subject <> xMovedAppointment.Subject Dan
If InStr(1, xMovedAppointment.Subject, "Copy:") > 0 Dan
xMovedAppointment.Subject = VBA.Replace(xMovedAppointment.Subject, "Copy:", "", 1, 1)
xVerplaatstAfspraak.Opslaan
End If
End If
xGekopieerde Afspraak.Verwijderen
End If
Stel xCopiedAppointment = Niets in
End Sub
Deze opmerking is gemaakt door de moderator op de site
Hoi! Hoe kan dit werken als je meerdere e-mails hebt? Geldt dit alleen voor meerdere bijlagen in dezelfde e-mail? Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Bedankt, het is belachelijk dat we zo ver moeten gaan om iets te doen dat door de applicatie moet worden afgehandeld
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL