Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win


How to save attachments from multiple e-mails at once

Posted on 2004-10-08
Medium Priority
Last Modified: 2010-04-08
I am receiveing hundreds of e-mails, each with one attachment. How can I save all of these attachments at one time vs. selecting each message individually and saving the attachments one-by-one?


Question by:mschonlau
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
LVL 30

Expert Comment

ID: 12261844
don't think you can do that
LVL 49

Accepted Solution

sunray_2003 earned 252 total points
ID: 12262630
Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

LVL 30

Expert Comment

ID: 12265204
i stand corrected guys ;)

Expert Comment

ID: 12265291
Ooops.... maybe sunray_2003 and me were typing the same comment at the same time!
LVL 13

Assisted Solution

stefri earned 248 total points
ID: 12265422
If you are comfortable vith VBA or broke:
Open VBA Editor (Alt F11)
Expand Project1/MS Outlook Modem/ThisOutlookSession
Cut and Paste the code below in right pane

'------------snip start from here
' Save attachments from selected mails to a folder
' Stefri 10/09/2004 use at your own risks
Public Sub saveAllAttachtoDisk()

Dim objAtt As Outlook.Attachment

Dim saveFolder As String
Dim myOlExp As Outlook.Explorer
Dim myOlSel As Outlook.Selection
Dim itm As Object
Set myOlExp = Application.ActiveExplorer
Set myOlSel = myOlExp.Selection

    saveFolder = "c:\att\" '<<<<<<<<<<<<<< to be adapted to your need
    On Error Resume Next
    If myOlSel.Count > 0 Then
        For Each itm In myOlSel
            For Each objAtt In itm.Attachments
                objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
                Set objAtt = Nothing
            Set itm = Nothing
    End If
    Set myOlExp  = Nothing
    Set myOlSel = Nothing
End Sub
'----------- snip ends here
Close VBA Editor
Check Tools/Macro/Security
Set to Medium

Close Outlook, accept to save the ProjectOtm
Start OL
Accept Macros to be enabled
Select mails with attachment using Shift/Ctrl Click
Select saveAllAttachtoDisk sub
That's it

Featured Post

Prepare for your VMware VCP6-DCV exam.

Josh Coen and Jason Langer have prepared the latest edition of VCP study guide. Both authors have been working in the IT field for more than a decade, and both hold VMware certifications. This 163-page guide covers all 10 of the exam blueprint sections.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article lists the top 5 free OST to PST Converter Tools. These tools save a lot of time for users when they want to convert OST to PST after their exchange server is no longer available or some other critical issue with exchange server or impor…
In this article I discuss my selections of the Top Four free Outlook OST File Viewers available. Open, view and read even damaged OST files by using these tools. They all provide a clear preview of all data such as emails, notes, tasks, calendars, e…
This video shows how to remove a single email address from the Outlook 2010 Auto Suggestion memory. NOTE: For Outlook 2016 and 2013 perform the exact same steps. Open a new email: Click the New email button in Outlook. Start typing the address: …
CodeTwo Sync for iCloud (http://www.codetwo.com/sync-for-icloud?sts=6554) automatically synchronizes your Outlook 2016, 2013, 2010 or 2007 folders with iCloud folders available via iCloud Control Panel. This lets you automatically sync them with…

610 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question