Hoe bewaar ik alle bijlagen van meerdere e-mails in een map in Outlook?
Het is gemakkelijk om alle bijlagen van een e-mail op te slaan met de ingebouwde functie Alle bijlagen opslaan in Outlook. Als u echter alle bijlagen van meerdere e-mails tegelijk wilt opslaan, is er geen directe functie die u kan helpen. U moet de functie Alle bijlagen opslaan in elke e-mail herhaaldelijk toepassen totdat alle bijlagen van die e-mails zijn opgeslagen. Dat kost veel tijd. In dit artikel introduceren we twee methoden waarmee u alle bijlagen van meerdere e-mails eenvoudig in Outlook in een specifieke map kunt opslaan.
Bewaar alle bijlagen van meerdere e-mails in een map met VBA-code
Meerdere klikken om alle bijlagen van meerdere e-mails in een map op te slaan met een geweldige tool
Bewaar alle bijlagen van meerdere e-mails in een map met VBA-code
In dit gedeelte wordt een VBA-code gedemonstreerd in een stapsgewijze handleiding om u te helpen snel alle bijlagen van meerdere e-mails tegelijk in een specifieke map op te slaan. Ga als volgt te werk.
1. Allereerst moet u een map aanmaken om de bijlagen op uw computer op te slaan.
Stap in de Documenten map en maak een map met de naam "Bijlagen". Zie screenshot:
2. Selecteer de e-mails waarin u de bijlagen wilt opslaan, en druk vervolgens op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
3. klikken Invoegen > Module om de te openen Module venster en kopieer vervolgens een van de volgende VBA-code naar het venster.
VBA-code 1: bewaar bijlagen van meerdere e-mails in bulk (bewaar bijlagen met exact dezelfde naam direct)
Tips: Deze code slaat bijlagen met exact dezelfde naam op door de cijfers 1, 2, 3 ... na bestandsnamen toe te voegen.
Dim GCount As Integer
Dim GFilepath As String
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
GFilepath = ""
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
GCount = 0
xFilePath = xFolderPath & xAttachments.Item(i).FileName
GFilepath = xFilePath
xFilePath = FileRename(xFilePath)
If IsEmbeddedAttachment(xAttachments.Item(i)) = False Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
Function FileRename(FilePath As String) As String
Dim xPath As String
Dim xFso As FileSystemObject
On Error Resume Next
Set xFso = CreateObject("Scripting.FileSystemObject")
xPath = FilePath
FileRename = xPath
If xFso.FileExists(xPath) Then
GCount = GCount + 1
xPath = xFso.GetParentFolderName(GFilepath) & "\" & xFso.GetBaseName(GFilepath) & " " & GCount & "." + xFso.GetExtensionName(GFilepath)
FileRename = FileRename(xPath)
End If
xFso = Nothing
End Function
Function IsEmbeddedAttachment(Attach As Attachment)
Dim xItem As MailItem
Dim xCid As String
Dim xID As String
Dim xHtml As String
On Error Resume Next
IsEmbeddedAttachment = False
Set xItem = Attach.Parent
If xItem.BodyFormat <> olFormatHTML Then Exit Function
xCid = ""
xCid = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
If xCid <> "" Then
xHtml = xItem.HTMLBody
xID = "cid:" & xCid
If InStr(xHtml, xID) > 0 Then
IsEmbeddedAttachment = True
End If
End If
End Function
VBA-code 2: bewaar bijlagen van meerdere e-mails in bulk (controleer op duplicaten)
Public Sub SaveAttachments()
'Update 20200821
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xAttCount As Long
Dim xFilePath As String, xFolderPath As String, xSaveFiles As String
Dim xYesNo As Integer
Dim xFlag As Boolean
On Error Resume Next
xFolderPath = CreateObject("WScript.Shell").SpecialFolders(16)
Set xSelection = Outlook.Application.ActiveExplorer.Selection
xFolderPath = xFolderPath & "\Attachments\"
If VBA.Dir(xFolderPath, vbDirectory) = vbNullString Then
VBA.MkDir xFolderPath
End If
For Each xMailItem In xSelection
Set xAttachments = xMailItem.Attachments
xAttCount = xAttachments.Count
xSaveFiles = ""
If xAttCount > 0 Then
For i = xAttCount To 1 Step -1
xFilePath = xFolderPath & xAttachments.Item(i).FileName
xFlag = True
If VBA.Dir(xFilePath, 16) <> Empty Then
xYesNo = MsgBox("The file is exists, do you want to replace it", vbYesNo + vbInformation, "Kutools for Outlook")
If xYesNo = vbNo Then xFlag = False
End If
If xFlag = True Then
xAttachments.Item(i).SaveAsFile xFilePath
If xMailItem.BodyFormat <> olFormatHTML Then
xSaveFiles = xSaveFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
Else
xSaveFiles = xSaveFiles & "<br>" & "<a href='file://" & xFilePath & "'>" & xFilePath & "</a>"
End If
End If
Next i
End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
Set xSelection = Nothing
End Sub
Opmerkingen:
5. druk de F5 sleutel om de code uit te voeren.
Vervolgens worden alle bijlagen in geselecteerde e-mails opgeslagen in de map die u in stap 1 hebt gemaakt.
Opmerkingen: Er kan een Microsoft Outlook promptvenster verschijnt, klik dan op het Allow knop om door te gaan.
Bewaar alle bijlagen van meerdere e-mails in een map met een geweldige tool
Als je een newbie bent in VBA, raad je hier ten zeerste de Bewaar alle bijlagen nut van Kutools voor Outook voor jou. Met dit hulpprogramma kunt u snel alle bijlagen van meerdere e-mails tegelijk opslaan met enkele klikken, alleen in Outlook.
Voordat u de functie toepast, alstublieft download en installeer eerst Kutools voor Outlook.
1. Selecteer de e-mails met de bijlagen die u wilt opslaan.
Tips: U kunt meerdere niet-aangrenzende e-mails selecteren door de Ctrl toets en selecteer ze een voor een;
Of selecteer meerdere aangrenzende e-mails door de Shift -toets en selecteer de eerste e-mail en de laatste.
2. klikken Kutools >Hulpmiddelen voor bijlagen > Save All. Zie screenshot:
3. In de Instellingen opslaan dialoogvenster, klik op de 
om een map te selecteren waarin u de bijlagen wilt opslaan, en klik vervolgens op het OK knop.
3. klikken OK twee keer in het volgende pop-upvenster in het dialoogvenster, dan worden alle bijlagen in geselecteerde e-mails tegelijk in de opgegeven map opgeslagen.
Opmerkingen:
- 1. Als u bijlagen in verschillende mappen wilt opslaan op basis van e-mails, controleer dan de Maak submappen in de volgende stijl box en kies een mapstijl uit de vervolgkeuzelijst.
- 2. Naast het opslaan van alle bijlagen, kunt u bijlagen opslaan onder specifieke voorwaarden. Als u bijvoorbeeld alleen de pdf-bestandsbijlagen wilt opslaan waarvan de bestandsnaam het woord "Factuur" bevat, klikt u op de geavanceerde opties knop om de voorwaarden uit te vouwen en configureer vervolgens zoals de onderstaande afbeelding wordt weergegeven.
- 3. Als u automatisch bijlagen wilt opslaan wanneer u een e-mail ontvangt, kunt u het Bijlagen automatisch opslaan functie kan helpen.
- 4. Om de bijlagen rechtstreeks uit geselecteerde e-mails te verwijderen, de Maak alle bijlagen los kenmerk van Kutools for Outlook kan je een plezier doen.
Als u een gratis proefperiode (60 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
Gerelateerde artikelen
Voeg bijlagen in de hoofdtekst van e-mailberichten in Outlook in
Normaal gesproken worden bijlagen weergegeven in het veld Bijgevoegd in een samenstellende e-mail. Hier biedt deze zelfstudie methoden waarmee u eenvoudig bijlagen in de e-mailtekst in Outlook kunt invoegen.
Automatisch bijlagen downloaden / opslaan vanuit Outlook naar een bepaalde map
Over het algemeen kunt u alle bijlagen van één e-mail opslaan door te klikken op Bijlagen> Alle bijlagen opslaan in Outlook. Maar als u alle bijlagen van alle ontvangen e-mails en ontvangen e-mails wilt opslaan, een ideaal dan? Dit artikel introduceert twee oplossingen om automatisch bijlagen van Outlook naar een bepaalde map te downloaden.
Druk alle bijlagen af in één / meerdere e-mails in Outlook
Zoals u weet, wordt alleen de e-mailinhoud, zoals de koptekst en de hoofdtekst, afgedrukt wanneer u op Bestand> Afdrukken klikt in Microsoft Outlook, maar de bijlagen worden niet afgedrukt. Hier laten we u zien hoe u alle bijlagen in een geselecteerde e-mail op uw gemak kunt afdrukken in Microsoft Outlook.
Zoek woorden in bijlage (inhoud) in Outlook
Wanneer we een trefwoord typen in het vak Direct zoeken in Outlook, zal het trefwoord zoeken in de onderwerpen, hoofdtekst, bijlagen, enz. Van e-mails. Maar nu hoef ik alleen maar het trefwoord te zoeken in de inhoud van bijlagen alleen in Outlook, enig idee? Dit artikel toont u de gedetailleerde stappen om eenvoudig naar woorden te zoeken in de inhoud van bijlagen in Outlook.
Bewaar bijlagen bij het beantwoorden in Outlook
Wanneer we een e-mailbericht doorsturen in Microsoft Outlook, blijven de originele bijlagen in dit e-mailbericht in het doorgestuurde bericht. Als we echter een e-mailbericht beantwoorden, worden de originele bijlagen niet bij het nieuwe antwoordbericht gevoegd. Hier gaan we een paar trucjes introduceren om originele bijlagen te behouden bij het beantwoorden in Microsoft Outlook.
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 Pro: Batch 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.
