Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to save all attachments from multiple emails to folder in Outlook?

It is easy to save all attachments from an email with the build-in Save All Attachments feature in Outlook. However, if you want to save all attachments from multiple emails at once, there is no direct feature can help. You need to repeatedly use the Save All Attachments feature in each email until all attachments are saved from those emails. That’s time-consuming. In this article, we introduce two methods for you to bulk save all attachments from multiple emails to a specific folder easily in Outlook.

Save all attachments from multiple emails to folder with VBA code
Several clicks to save all attachments from multiple emails to folder with an amazing tool


Quickly bulk save all attachments from multiple emails in Outlook:

The Save All attachments utility of Kutools for Outlook can help you quickly save all attachments from multiple emails to a specific folder at once. See below demo.
Download the full feature 60-day free trail of Kutools for Outlook now!


Save all attachments from multiple emails to folder with VBA code

This section demonstrates a VBA code in a step-by-step guide to help you quickly save all attachments from multiple emails to a specific folder at once. Please do as follows.

1. Firstly, you need to create a folder for saving the attachments in your computer.

Get into the Documents folder and create a folder named “Attachments”. See screenshot:

2. Select the emails which the attachments you will save, and then press Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

3. Click Insert > Module to open the Module window, and then copy the following VBA code into the window.

VBA code: Bulk save attachments from multiple emails

Public Sub SaveAttachments()
'Update 20191101
    Dim objOL As Outlook.Application
    Dim objMsg As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim lngCount As Long
    Dim strFile As String
    Dim strFolderpath As String
    Dim strDeletedFiles As String
    strFolderpath = CreateObject("WScript.Shell").SpecialFolders(16)
    Set objOL = CreateObject("Outlook.Application")
    Set objSelection = objOL.ActiveExplorer.Selection
    strFolderpath = strFolderpath & "\Attachments\"
    For Each objMsg In objSelection
        Set objAttachments = objMsg.Attachments
        lngCount = objAttachments.Count
        strDeletedFiles = ""
        If lngCount > 0 Then
            For i = lngCount To 1 Step -1
                strFile = objAttachments.Item(i).FileName
                strFile = strFolderpath & strFile
                objAttachments.Item(i).SaveAsFile strFile
'objAttachments.Item(i).Delete()
                If objMsg.BodyFormat <> olFormatHTML Then
                    strDeletedFiles = strDeletedFiles & vbCrLf & "<Error! Hyperlink reference not valid.>"
                Else
                    strDeletedFiles = strDeletedFiles & "<br>" & "<a href='file://" & _
                    strFile & "'>" & strFile & "</a>"
                End If
                Next i
                If objMsg.BodyFormat <> olFormatHTML Then
                    objMsg.Body = vbCrLf & "The file(s) were saved to " & strDeletedFiles & vbCrLf & objMsg.Body
                Else
                    objMsg.HTMLBody = "<p>" & "The file(s) were saved to " & strDeletedFiles & "</p>" & objMsg.HTMLBody
                End If
                objMsg.Save
            End If
        Next
ExitSub:
        Set objAttachments = Nothing
        Set objMsg = Nothing
        Set objSelection = Nothing
        Set objOL = Nothing
End Sub

5. Press the F5 key to run the code.

Then all attachments in selected emails are saved to the folder you created in step 1. You will see there are hyperlinks displayed in selected emails. Click on the link will open the specific attachment automatically.

Note: There may be a Microsoft Outlook prompt box popping up, please click the Allow button to go ahead.


Save all attachments from multiple emails to folder with an amazing tool

If you are a newbie in VBA, here highly recommended the Save All attachments utility of Kutools for Outook for you. With this utility, you can quickly save all attachments from multiple emails at once with several clicks only in Outlook.
Before applying the feature, please download and install Kutools for Outlook firstly.

1. Select the emails containing the attachments you want to save.

Tips: You can select multiple nonadjacent emails by holding the Ctrl key and select them one by one;
Or select multiple adjacent emails by holding the Shift key and select the first email and the last one.

2. Click Kutools > Save All. See screenshot:

3. In the Save Settings dialog, click the button to select a folder to save the attachments, and then click the OK button to save the attachments. See screenshot:

Then all attachments in selected emails are save in specified folder at once.

Notes:

  • 1. If you want to save attachments in different folders based on emails, please check the Create subfolders in the following style box, and choose a folder style from the drop-down.
  • 2. You can only save attachments with specific extensions from selected emails. For example, you only want to save Text file attachments and Word document attachments, please check the Only save attachments with following extensions box, and enter .txt;.docx into the textbox.

For detaching the attachments directly from selected emails, the Detach All attachments feature of Kutools for Outlook can do you a favor. Click to know more about this feature.

  If you want to have a free trial ( 60-day) of this utility, please click to download it, and then go to apply the operation according above steps.


Related articles

Insert attachments in the body of email message in Outlook
Normally attachments are displayed in the Attached field in a composing email. Here this tutorial provides methods to help you easily insert attachments in the email body in Outlook.

Automatically download/save attachments from Outlook to a certain folder
Generally speaking, you can save all attachments of one email with clicking Attachments > Save All Attachments in Outlook. But, if you need to save all attachments from all received emails and receiving emails, any ideal? This article will introduce two solutions to automatically download attachments from Outlook to a certain folder.

Print all attachments in one/multiple emails in Outlook
As you know, it will only print the email content such as header, body when you click the File > Print in Microsoft Outlook, but not print the attachments. Here we will show you how to print all attachments in a selected email at ease in Microsoft Outlook.

Search words within attachment (content) in Outlook
When we typing a keyword in the Instant Search box in Outlook, it will search the keyword in emails’ subjects, bodies, attachments, etc. But now I just need to search the keyword in attachment content only in Outlook, any idea? This article shows you the detailed steps to search words within attachment content in Outlook easily.

Keep attachments when replying in Outlook
When we forward an email message in Microsoft Outlook, original attachments in this email message are remained in the forwarded message. However, when we reply an email message, the original attachments will not be attached in the new reply message. Here we are going to introduce a couple of tricks about keeping original attachments when replying in Microsoft Outlook.


Kutools for Outlook - Brings 100 Advanced Features to Outlook, and Make Work Much Easier!

  • Auto CC/BCC by rules when sending email; Auto Forward Multiple Emails by custom; Auto Reply without exchange server, and more automatic features...
  • BCC Warning - show message when you try to reply all if your mail address is in the BCC list; Remind When Missing Attachments, and more remind features...
  • Reply (All) With All Attachments in the mail conversation; Reply Many Emails in seconds; Auto Add Greeting when reply; Add Date into subject...
  • Attachment Tools: Manage All Attachments in All Mails, Auto Detach, Compress All, Rename All, Save All... Quick Report, Count Selected Mails...
  • Powerful Junk Emails by custom; Remove Duplicate Mails and Contacts... Enable you to do smarter, faster and better in Outlook.
shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Priyanka · 6 days ago
    I have applied this VBA to few mails. How to undo this? I dont want those messages in all mails (The file(s) were saved to .....). Please help.
  • To post as a guest, your comment is unpublished.
    Hiep · 4 months ago
    Thank you. It saves me lots of time.
  • To post as a guest, your comment is unpublished.
    BG Davis · 7 months ago
    So I click the link "Kutools for outlook" and I'm directed to a page that is not that, but "Kutools - Combines More Than 300 Advanced Functions and Tools for Microsoft Excel."

    Nothing about Outlook. Waste of time.
    • To post as a guest, your comment is unpublished.
      crystal · 5 months ago
      Hi Davis,
      We created an incorrect hyperlink. Thanks for your reminder! And sorry for the inconvenience brought to you.
  • To post as a guest, your comment is unpublished.
    Brian · 2 years ago
    This is what the code is at now, and it does save all the attachments, but it only adds text to the first message. Can anyone help me with this?

    Public Sub SaveAttachments()
    'Update 20170523
    Dim objOL As Outlook.Application
    Dim objMsg As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objSelection As Outlook.Selection
    Dim I As Long
    Dim lngCount As Long
    Dim strFile As String
    Dim strFolderpath As String
    Set objOL = CreateObject("Outlook.Application")
    Set objSelection = objOL.ActiveExplorer.Selection
    strFolderpath = "C:\Users\brianp\Documents\Attachments\"
    For Each objMsg In objSelection
    Set objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count
    'Use this to test MsgBox "Subject = " & objMsg.Subject & " lngCount = " & objAttachments.Count
    If lngCount > 0 Then
    For I = lngCount To 1 Step -1
    strFile = objAttachments.Item(I).FileName
    strFile = strFolderpath & strFile
    objAttachments.Item(I).SaveAsFile strFile
    Next I
    End If
    If objMsg.BodyFormat olFormatHTML Then
    objMsg.Body = vbCrLf & "The Attached file(s) were saved to " & "" & strFile & "" & vbCrLf & objMsg.Body
    Else
    objMsg.HTMLBody = "" & "The Attached file(s) were saved to " & "" & strFile & "" & "" & objMsg.HTMLBody
    End If
    Next
    ExitSub:
    Set objAttachments = Nothing
    Set objMsg = Nothing
    Set objSelection = Nothing
    Set objOL = Nothing
    End Sub
  • To post as a guest, your comment is unpublished.
    Brian · 2 years ago
    I can get this to run but how and the objSelection.Count is 2 but it will only save the attachments on the first email.
  • To post as a guest, your comment is unpublished.
    Atron Seige · 2 years ago
    Thanks! This saved me a lot of time and frustration!
  • To post as a guest, your comment is unpublished.
    Josh Fernandez · 2 years ago
    Works great with no problems! Thanks. Saved me a bunch of time!

    Thanks,

    Josh
  • To post as a guest, your comment is unpublished.
    Sathish · 3 years ago
    How to remove the "The file(s) were saved to" which is showing below.....
  • To post as a guest, your comment is unpublished.
    debsdebsdebs · 4 years ago
    This worked great except for one problem. The attachments in my emails are all named the same thing, so when they copy over, the script keeps replacing the same file with the next attachment in the queue. Is there any way to make it rename them rather than rewrite them?

    Thanks!
  • To post as a guest, your comment is unpublished.
    tweazee · 5 years ago
    To sharon -- The below website fixes your issue.

    www_dot_outlook-tips_dot_net/code-samples/save-and-delete-attachments/

    It does NOT have the timestamp feature code that TXgardner provided above, so if you want that, you have to edit your code.
  • To post as a guest, your comment is unpublished.
    sharon · 5 years ago
    Hi..I tried everything on here but I keep getting Complile Error block if without end if. I made adjustments per Thomas' suggestions. Heres the code..what am I missing? Any help is appreciated.
    Public Sub SaveAttachments()
    'Update 20130828
    Dim objOL As Outlook.Application
    Dim objMsg As Outlook.MailItem
    Dim objAttachments As Outlook.Attachments
    Dim objSelection As Outlook.Selection
    Dim i As Long
    Dim lngCount As Long
    Dim strFile As String
    Dim strFolderpath As String
    Dim strDeletedFiles As String
    objOL = CreateObject("Outlook.Application")
    objSelection = objOL.ActiveExplorer.Selection
    strFolderpath = "C:\folder\Attachments\"
    For Each objMsg In objSelection
    objAttachments = objMsg.Attachments
    lngCount = objAttachments.Count
    strDeletedFiles = ""
    If lngCount > 0 Then
    For i = lngCount To 1 Step -1
    strFile = objAttachments.Item(i).FileName
    strFile = strFolderpath & strFile
    objAttachments.Item(i).SaveAsFile strFile
    DoEvents
    'objAttachments.Item(i).Delete()
    Next
    ExitSub:
    objAttachments = Nothing
    objMsg = Nothing
    Set objSelection = objOL.ActiveExplorer.Selection
    objOL = Nothing
    End Sub
  • To post as a guest, your comment is unpublished.
    TXgardener · 5 years ago
    Following on the suggestions above, I had daily system generated emails with attached 'report.txt' and needed to append the sent date to the saved file name in order to avoid overwrites and to distinguish files. Made the following adds in the appropriate places:
    add- Dim strSent As String
    add- strSent = Format(objMsg.SentOn, "yymmdd")
    add- strFile = strSent & strFile

    Saved files are now 140822Report.txt, etc.
  • To post as a guest, your comment is unpublished.
    Thomas · 5 years ago
    Thanks for sharing.

    I agree with Stephan on his first two points, see some clarification on his point 3. Finally, adding a DoEvents at the right place should allow you to process large number of emails (just run this code on 157 mails in Outlook 2013).

    Some additional thoughts:

    1)
    This works only if you use the Documents folder. For a more general case:
    delete line 12
    line 15 should read: strFolderpath = "C:\folder\otherfolder\"

    substitute [i]C:\folder\otherfolder\[/i] with whatever path you have.

    2)
    This code will not delete the attachments, if you want that just delete the leading ' from line 25.

    3)
    If you have big attachments, then probably it is a good idea (as Stephan noted) to put a DoEvents function after line 24.

    4)
    I personally do not want to modify the emails in any way (e.g. adding the file save path to the text of the mail), if you agree with me then you can delete line 26-39.

    5)
    If you skip my step 4, then you can allow the program to modify the emails by checking "Allow access for x time", then you have to click allow only once (c.f. step 6 above in the original).
  • To post as a guest, your comment is unpublished.
    Stephan · 5 years ago
    Some corrections:

    1. objMsg.Save 'without ()
    2. Objects must be assigned with SET (e. g. SET objSelection = objOL.ActiveExplorer.Selection)

    3. The main Loop should contain a DoEvents in order to prevent blankout by Outlook.

    4. When processing a lot of mails (more than 100), Outlook may Crash. It seems that there is a Memory leak somewhere.

    Just my 2 Cents.

    Apart from the bugs (probably due to Outlook 2013) this is really nice and working. Thanks a lot for sharing.
  • To post as a guest, your comment is unpublished.
    Alain · 5 years ago
    Same problem syntax error on objMsg.Save() ...
  • To post as a guest, your comment is unpublished.
    Valencia · 5 years ago
    When I try to run this I get syntax error on objMsg.Save() - expects =
  • To post as a guest, your comment is unpublished.
    Chris · 5 years ago
    When I try to run this I get syntax error on objMsg.Save() - expects =