Hoe bijlagen opslaan zonder de e-mail in Outlook te openen?

Mogelijk moet u regelmatig bijlagen van de ontvangen e-mails op uw computerschijven opslaan. Het is gemakkelijk om een bijlage of alle bijlagen van een e-mailbericht op te slaan, maar hoe kan ik bijlagen van meerdere e-mails tegelijk opslaan? Normaal gesproken moet u de e-mails herhaaldelijk openen en de bijlagen opslaan. Zijn er trucs om van de herhaaldelijke operaties af te komen? Hier kunnen de methoden in deze tutorial je helpen.

Bewaar bijlagen van een of meer e-mails zonder te openen met VBA-code
Bewaar bijlagen van een of meer e-mails zonder te openen met een geweldige tool

Bewaar bijlagen van een of meer e-mails zonder te openen met VBA-code

De onderstaande VBA-code kan helpen om bijlagen van een of meer e-mails tegelijkertijd op te slaan zonder de e-mails in Outlook te openen. Ga als volgt te werk.

1. Selecteer een e-mail of meerdere e-mails waarin u de bijlagen wilt opslaan, druk op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Vouw het Microsoft Outlook-objecten map, dubbelklik op het DezeOutlookSessie om de te openen Code venster en kopieer vervolgens de onderstaande VBA-code erin.

VBA-code: bewaar bijlagen zonder de e-mails te openen

Public Sub SaveAttachmentsWithoutOpening()
'Updated by Extendoffice 20191008
Dim xMailItem As Outlook.MailItem
Dim xAttachments As Outlook.Attachments
Dim xAttachment As Outlook.Attachment
Dim i As Long
Dim xCount As Long
Dim xFileName As String
Dim xSavePath As String
Dim xOriginalFiles As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xSavePath = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xMailItem In Outlook.ActiveExplorer.Selection
    Set xAttachments = xMailItem.Attachments
    xCount = xAttachments.Count
    xOriginalFiles = ""
    If xCount > 0 Then
        For i = xCount To 1 Step -1
            Set xAttachment = xAttachments.Item(i)
            If IsEmbeddedAttachment(xAttachment) = False Then
                xFileName = xSavePath & xAttachment.FileName
                xAttachment.SaveAsFile xFileName
                xAttachment.Delete
                If xMailItem.BodyFormat <> olFormatHTML Then
                    xOriginalFiles = xOriginalFiles & vbCrLf & "file://" & xFileName
                Else
                    xOriginalFiles = xOriginalFiles & "<br>" & "<a href='file://" & xFileName & "'>" & xFileName & "</a>"
                End If
            End If
        Next i
        If xMailItem.BodyFormat <> olFormatHTML Then
            xMailItem.Body = "The file(s) were saved to " & xOriginalFiles & vbCrLf & vbCrLf & xMailItem.Body
        Else
            xMailItem.HTMLBody = "<p>" & "The file(s) were saved to " & xOriginalFiles & "</p>" & xMailItem.HTMLBody
        End If
        xMailItem.Save
    End If
Next
Set xAttachments = Nothing
Set xMailItem = Nothing
End Sub

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

4. druk de F5 sleutel om de code uit te voeren. Dan een Blader naar de map venster verschijnt, selecteer een map om de bijlagen op te slaan en klik vervolgens op het OK knop.

Vervolgens worden alle bijlagen in geselecteerde e-mails onmiddellijk in de geselecteerde map opgeslagen.

Opmerking: Alle bijlagen worden losgekoppeld van de e-mails en behouden de corresponderende links voor het opslagpad in de hoofdtekst van de e-mail.

Bewaar bijlagen van een of meer e-mails zonder te openen met een geweldige tool

Als je een newbie bent in VBA, is de methode in deze sectie een goede keuze.

Beveel hier de Bewaar alle bijlagen hulpprogramma's van Kutools for Outlook voor jou. Als u alleen de bijlagen wilt opslaan zonder deze los te koppelen van geselecteerde e-mails, kan de functie Alle bijlagen opslaan u helpen dit gemakkelijk voor elkaar te krijgen. Ga als volgt te werk.
Voordat u Kutools voor Outlook toepast, alstublieft download en installeer het in de eerste plaats.

1. Selecteer de e-mails met de bijlagen die u wilt opslaan, klik op Kutools > Hulpmiddelen voor bijlagen > Save All.

2. In de Instellingen opslaan dialoogvenster, moet u:

2.1) In de Bewaar bijlage (n) in deze map sectie, kies een map om de bijlagen op te slaan;
2.2) The Bewaar bijlage (n) in onderstaande stijl box is optioneel voor u om een submap met certian style aan te maken om de bijlagen op te slaan, of om de opgeslagen bijlagen met certian style te hernoemen.
2.3) Klik op OK om te beginnen met het opslaan van alle bijlagen van geselecteerde e-mails.

Tips: Met de bovenstaande configuraties worden alle bijlagen opgeslagen in de opgegeven map. Als u alleen bepaalde certian-bijlagen wilt opslaan, zoals alleen de PDF-bestanden opslaan met het certian-woord "factuur" in de bestandsnaam, kunt u de filtervoorwaarden als volgt configureren.

Klik op de geavanceerde opties knop om het Filtervoorwaardes;
Specificeer de voorwaarden op basis van uw behoeften.
Tips: Hier controleer ik de Bijlage naam bevat vak en typ vervolgens "factuur" in het tekstvak en vink vervolgens het Type bijlage typ ".pdf" in het tekstvak.

3. Klik in het volgende pop-upvenster op Ja te gaan.

Bijlagen in geselecteerde e-mails worden vervolgens in één keer in de opgegeven map opgeslagen.

Tips: Voor het loskoppelen van bijlagen van geselecteerde e-mails en alleen de hyperlinks van de bijlage in de hoofdtekst van de e-mail achterlaten, de Maak alle bijlagen los functie kan helpen.

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

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.

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.

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.